http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55214
Bug #: 55214
Summary: Program fail to evaluate where clause
Classification: Unclassified
Product: gcc
Version: 4.6.1
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassig...@gcc.gnu.org
ReportedBy: pmarguin...@hotmail.com
LOGICAL :: L (2)
REAL :: X (2), Y (2)
L (1) = .TRUE.
L (2) = .FALSE.
X (1) = +1
X (2) = -1
Y = 0.
WHERE (L)
WHERE (SQRT(X)>0)
Y = 1.
END WHERE
END WHERE
PRINT *, Y
END
