------- Comment #3 from kargl at gcc dot gnu dot org 2008-05-19 19:56 ------- Works for me on FreeBSD-8.0.
mobile:kargl[210] cat m.f90 SUBROUTINE mnbrak IMPLICIT REAL(a-f) f=func() END SUBROUTINE mnbrak mobile:kargl[211] ~/work/bin/gfortran -c m.f90 mobile:kargl[212] nm m.o U func_ 00000000 T mnbrak_ mobile:kargl[213] ~/work/bin/gfortran --version GNU Fortran (GCC) 4.4.0 20080516 (experimental) -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=36157