------- Comment #15 from jvdelisle at gcc dot gnu dot org 2007-02-08 03:12 ------- Try :
external fun real fun character(10) :: string real a a = fun() print *, a,a write(string,'(f10.6)') fun() print *, string end real function fun() print *, 'test' fun = 1.0 end Or increase the size of string. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30617