------- Comment #2 from pinskia at gcc dot gnu dot org 2006-03-14 15:14 -------
A simplier example from progsf90:
module ranlib
CONTAINS
LOGICAL FUNCTION qrgnin()
LOGICAL qrgnsn
ENTRY qrgnsn(qvalue)
end function
end module
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24558