program test_02
implicit none
external prod
real prod
write(*,*)prod(3,5)
endreal function prod(a,b)
integer a,b
prod=(a*b)
return
end
program test_02
implicit none
external prod
real prod
write(*,*)prod(3,5)
endreal function prod(a,b)
integer a,b
prod=(a*b)
return
end