------- Comment #8 from dir at lanl dot gov 2007-01-29 13:45 ------- It hangs on a Intel iMac -
[pactech01:~/tests] dir% gfortran -o recursiveio recursiveio.f90
[pactech01:~/tests] dir% recursiveio
test
1.000000
^C
[pactech01:~/tests] dir% cat recursiveio.f90
external fun
real fun
real a
a = fun()
print *, a
print *, fun()
end
real function fun()
print *, 'test'
fun = 1.0
end
[dranta:~] dir%
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30617
