Conference turris::fortran

1265.0. " F90 Internal compiler error" by MUNICH::WWERNER (When in doubt, do as the INTs do) Mon Apr 21 1997 08:31

OpenVMS Alpha V6.2, F90 V7.1-330 

$ f90 bug.f90

 IF(.not.ASSOCIATED( NEXT(El_pointer) )) EXIT
.^
%F90-F-FATAL, **Internal compiler error: internal abort** Please report this err
or along with the circumstances in which it occurred in a Software Problem Repor
t.  Note: File and line given may not be explicit cause of this error.
at line number 18 in file SYS$USER:[WERNER]BUG.F90;1


$ type bug.f90

PROGRAM Test

TYPE Element
INTEGER :: i
TYPE(Element), pointer :: n
END TYPE Element

TYPE(Element), target  :: El_1, El_2, El_3
TYPE(Element), pointer :: El_pointer

El_1%i =  1;        El_1%n => El_2
El_2%i =  2;        El_2%n => El_3
El_3%i =  3;        NULLIFY(El_3%n)

El_pointer => El_1
DO
 PRINT '(a,i2)', ' Element=', El_pointer%i
 IF(.not.ASSOCIATED( NEXT(El_pointer) )) EXIT
 El_pointer => NEXT(El_pointer)
END DO

CONTAINS

FUNCTION NEXT(El)
TYPE(Element), pointer  :: NEXT, El
NEXT => El%n
END FUNCTION NEXT

END



regards Wolfgang

Thanks - I can still reproduce this in our latest compiler.  We'll investigate.

				Steve