Problem with abstract interfaces

Accelerated Computing HPC Compilers Legacy PGI Compilers
1

Hi,

the following code gives an internal compiler error with pgfortran version 17.4:

MODULE interfacetest
  IMPLICIT NONE

  ABSTRACT INTERFACE
     FUNCTION mv_iface(x) RESULT(res)
       IMPLICIT NONE
       REAL :: x, res
     END FUNCTION mv_iface
  END INTERFACE

  ABSTRACT INTERFACE
     SUBROUTINE huti_itercall(y, mvfun)
       IMPORT :: mv_iface
       IMPLICIT NONE
       PROCEDURE(mv_iface), POINTER :: mvfun
       REAL :: y
     END SUBROUTINE huti_itercall
  END INTERFACE

END MODULE interfacetest

Cheers,
Sami

2

We have replicated the behavior you reported, and we have assigned the
problem TPR 24490.

thanks,
dave