http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44352
Thomas Koenig <tkoenig at gcc dot gnu.org> changed:
What |Removed |Added
----------------------------------------------------------------------------
CC| |tkoenig at gcc dot gnu.org
--- Comment #2 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2010-12-03
11:29:59 UTC ---
The test case recurses infinitely with
-fdump-fortran-original:
Namespace: A-H: (REAL 8) I-N: (INTEGER 4) O-Z: (REAL 8)
procedure name = MAIN__
symtree: 'MAIN__' || symbol: 'MAIN__'
type spec : (UNKNOWN 0)
attributes: (PROGRAM PUBLIC SUBROUTINE)
symtree: 'ddname' || symbol: 'ddname'
type spec : (CHARACTER 32)
attributes: (VARIABLE )
symtree: 'dname' || symbol: 'dname'
type spec : (CHARACTER 32)
attributes: (PROCEDURE STATEMENT-PROC FUNCTION)
value: 'h810 e=0.01 '
result: dname
Formal arglist: x
Formal namespace
Namespace: A-H: (REAL 8) I-N: (INTEGER 4) O-Z: (REAL 8)
procedure name = MAIN__
... and so on.
