[Bug fortran/25423] New: Error with nested where statements

["schnetter at aei dot mpg dot de" <gcc-bugzilla at gcc dot gnu dot org>]

The source code

subroutine sub (i, j)
  implicit none
  logical i(10), j(10)
  where (i)
     where (j)
     end where
  end where
end subroutine sub

leads to the error message

$ ~/gcc/bin/gfortran -c where.f90 
 In file where.f90:6

     end where
             1
Error: Unsupported statement inside WHERE at (1)

when compiled with

$ ~/gcc/bin/gfortran --version
GNU Fortran 95 (GCC) 4.2.0 20051129 (experimental)



The end where statement should not lead to an error message; end where
statements are allowed in where clauses.


-- 
           Summary: Error with nested where statements
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: schnetter at aei dot mpg dot de
 GCC build triplet: powerpc-apple-darwin8.3.0
  GCC host triplet: powerpc-apple-darwin8.3.0
GCC target triplet: powerpc-apple-darwin8.3.0


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