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
