I got the followimg on X86 (on AXP&Ia64 it just compiles). the problem seems to be the optional parameter from the main routine used in the one contained in it.
Code: Select all
rumba-jj) f90/vers
VSI Fortran X8.5-0004 (GEM 50X6F) for X86 systems
rumba-jj) ty test.f90
subroutine eee(exitstatus)
integer, intent(out), optional :: exitstatus
real*8 prod , d
integer n , l
if (present(exitstatus) ) exitstatus = 0
call init( prod , d , n , l )
prod = d * prod / (dble(l+3) * fact(n))
contains
function fact(i)
integer :: i
real*8 fact
if ( i >= 0 ) then
fact = 0.0
else
if (present(exitstatus)) exitstatus =1
stop
end if
end function
end subroutine
5-JUL-2023 12:39:58
rumba-jj) f90 test.f90
G2L-E-ASSERT, G2L converter bug in [.src]g2l_operator.cxx at line 1981
Operands do not have conformable pointer types