Fortran on X86 : G2L converter bug

[joukj]

Hi all,

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

[sergey_vorfolomeev]

We are working on it.

[joukj]

Do not get this problem anymore with the new fortran compiler (X8.5-007)

thanks
Jouk