I get an ICE using:
--------------------------
program test
implicit none
real, pointer :: x
real, target :: y
if(ASSOCIATED(X,(Y))) print *, 'Hello'
end program test
--------------------------
(If one corrects the error and uses associated(x,y), gfortran is happy.)
test2.f90:0: internal compiler error: in gfc_check_associated, at
fortran/check.c:535
g95:
In file test2.f90:5
if(ASSOCIATED(X,(Y))) print *, 'Hello'
1
Error: 'target' argument of 'associated' intrinsic at (1) must be a POINTER or
a TARGET
ifort:
fortcom: Error: test2.f90, line 5: The TARGET argument must have the POINTER or
TARGET attribute. [ASSOCIATED]
if(ASSOCIATED(X,(Y))) print *, 'Hello'
--------------------^
NAGf95:
Error: test2.f90, line 5: TARGET arg to ASSOCIATED intrinsic not pointer/target
--
Summary: ICE on invalid "associate(x,(y))"
Product: gcc
Version: 4.2.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassigned at gcc dot gnu dot org
ReportedBy: tobias dot burnus at physik dot fu-berlin dot de
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27584
