[Bug libfortran/17074] New: Unclassifiable statement in IF-clause / Simple IF followed by WHERE

[c dot lemmen at fz-juelich dot de]

> gfortran -v testcase_simpleifwhere.f90 

 In file testcase_simpleifwhere.f90:12

  if (2>1) where(index) values=-1.
          1
Error: Unclassifiable statement in IF-clause at (1)

*****************************
Configuration:

Configured with: ./configure --enable-threads=posix --disable-checking
--enable-libgcj --with-system-zlib --enable-shared --enable-__cxa_atexit
i686-suse-linux  --enable-languages=c,f95 --no-create --no-recursion
Thread model: posix
gcc version 3.5.0 20040818 (experimental)
GNU F95 version 3.5.0 20040818 (experimental) (i686-suse-linux)
        compiled by GNU C version 3.5.0 20040817 (experimental).
!**************************
!Test case code:

program testcase_simpleifwhere
  
  real,dimension(100)    :: values
  logical,dimension(100) :: index

  index(:)=.true.
    
  ! The following line works
  where(index) values=-1.

  ! Next line is broken
  if (2>1) where(index) values=-1.
  
end program testcase_simpleifwhere

!**********************************

This code works with nag/intel/pgf compilers

-- 
           Summary: Unclassifiable statement in IF-clause / Simple IF
                    followed by WHERE
           Product: gcc
           Version: 3.5.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: c dot lemmen at fz-juelich dot de
                CC: gcc-bugs at gcc dot gnu dot org
 GCC build triplet: i686-suse-linux
  GCC host triplet: i686-suse-linux
GCC target triplet: i686-suse-linux


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17074