------- 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
