------- 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
