[Bug libfortran/30617] recursive I/O hangs under OSX

[dominiq at lps dot ens dot fr]

------- Comment #19 from dominiq at lps dot ens dot fr  2007-02-08 12:06 -------
The following invalid code:

external fun
real fun
real a
a = fun()
! print *, a
write(10,*) fun(), a, 'try it', ' 1.23'
end
real function fun()
print *, 'test'
fun = 1.0
end

gives a working executable when compiled with gfortran on OSX.
However, if I replace "print *," by "write(10,*)" the executable hangs again.
So the problem seems limited to use of the same external unit.


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30617