------- Comment #1 from fxcoudert at gcc dot gnu dot org 2005-11-26 19:53
-------
gfortran doesn't issue a correct error, and throw an ICE instead:
In file foo.f90:2
FORALL(I=1:10,T(I)) A(I)=I
1
Internal Error at (1):
free_expr0(): Bad expr type
## g95 ##
In file foo.f90:2
FORALL(I=1:10,T(I)) A(I)=I
1
Error: Function reference to 't' in FORALL mask at (1) is to a non-PURE
procedure
## Intel ##
fortcom: Error: foo.f90, line 2: Any function referenced in a forall-body-stmt
must have the PURE attribute explicitly declared. [T]
FORALL(I=1:10,T(I)) A(I)=I
--------------^
compilation aborted for foo.f90 (code 1)
## Portland ##
PGF90-F-0155-t - FORALL requires PURE function interface (foo.f90: 2)
PGF90/any Linux/x86 5.2-4: compilation aborted
## Sun ##
FORALL(I=1:10,T(I)) A(I)=I
^
"foo.f90", Line = 2, Column = 15: ERROR: Procedure T is referenced within a
scalar-mask-expression. It must be a PURE procedure.
--
fxcoudert at gcc dot gnu dot org changed:
What |Removed |Added
----------------------------------------------------------------------------
Status|UNCONFIRMED |NEW
Ever Confirmed|0 |1
Keywords| |ice-on-invalid-code
Last reconfirmed|0000-00-00 00:00:00 |2005-11-26 19:53:06
date| |
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25072
