------- Comment #2 from paul dot richard dot thomas at cea dot fr 2006-05-15 06:42 ------- A temporary workaround is:
program test integer :: stuff write(*, *) "called stuff ", stuff(1), " times" end program test recursive function stuff(n) result (tmp) integer :: tmp integer :: n tmp = 1 if(n < 5) then tmp = tmp+stuff(n+1) endif end function stuff -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=27613