LI80771: INTERNAL COMPILER ERROR IN XLFENTRY

APAR status

• Closed as program error.

Error description

• The xlfentry produces an internal compiler error when trying to
  compile the provided test case:
  
  ======COMPILE COMMAND:
  xlf  -g test.F90
  
  =====TESTCASE:
  $ cat test.F90
        MODULE g_traverse
  
        USE ISO_C_BINDING
        IMPLICIT NONE
        CONTAINS
        RECURSIVE INTEGER(KIND=C_INT) FUNCTION op_func()
  RESULT(ret_val) &
        BIND(C)
        USE ISO_C_BINDING
  
        IMPLICIT NONE
  
        TYPE(C_FUNPTR) :: funptr
  
        funptr = C_FUNLOC(op_func)
        ret_val = 0
  
        END FUNCTION op_func
  
        END MODULE g_traverse
  
        PROGRAM main
  
        PRINT*,"A"
  
        END PROGRAM main
  $
  
  ===== ACTUAL OUTPUT:
  Compiler produces an internal compiler error
  
  ===== EXPECTED OUTPUT:
  Should compile cleanly.
  

Local fix

• N/A
  

Problem summary

• USERS AFFECTED:
  Clients who have test cases similar to the one mentioned in this
  APAR may be affected by this issue.
  
  PROBLEM DESCRIPTION:
  The compiler was incorrectly obtaining a local value for one of
  its internal functions causing an internal compiler error.
  

Problem conclusion

• The compiler is now fixed with this PTF.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  XL FORTRAN LINU

• Fixed component ID

  5725C7510

Applicable component levels