[Bug fortran/24558] ENTRY doesn't work in module procedures

["pault at gcc dot gnu dot org" <gcc-bugzilla@gcc.gnu.org>]

------- Comment #4 from pault at gcc dot gnu dot org  2006-05-30 07:43 -------
Created an attachment (id=11535)
 --> (http://gcc.gnu.org/bugzilla/attachment.cgi?id=11535&action=view)
Preliminary patch to fix the PR

This needs a lot of sprucing up and checking out but it compiles and runs the
version below of your testcase. The disgnostic gfc_warning_now's need removing
too!

Paul

module foo
contains
    function n1(a)
        integer :: n1, n2, a, b
        integer, save :: c
        c = a
        n1 = c**3
        return
    entry n2(b)
        n2 = c * b
        n2 = n2**2
        return
    end function n1

    function n3(d)
        integer :: n3, d
        n3 = n2(d)*n1(d)
        return
    end function n3
end module foo

program bar

    use foo

    print *, n1(9)
    print *, n2(2)
    print *, n3(19)

end program bar


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=24558