|AMD backend failure

A short source file which gets compiled OK in 32-bit mode gives an error (see title of post) with /64:

module absi
abstract interface
  real function fun()
  end function fun
end interface
contains
subroutine sub(f)
  procedure(fun), pointer, intent(in) :: f
  real :: a
  a = f()
end subroutine sub
end module absi

The error message is 'AMD backend failure:Failed to do memory-register emit for MOVSS at 7'

mecej4

Many thanks for the feedback. I have made a note that this feature has not yet been implemented in FTN95.

This feature has now been added for the next release of FTN95.