IV56780: INTERNAL ERROR IN XLFHOT WITH POLYMORPHIC

XL Fortran for AIX Fix Pack 11 (May 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 12 (August 2015 Update) for 14.1
XL Fortran for AIX Fix Pack 15 (April 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 16 (July 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 17 (November 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 18 (February 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 19 (August 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 7 (March 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 8 (July 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 9 (October 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 10 (February 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 14 (December 2015 Update) for 14.1

APAR status

• Closed as program error.

Error description

• Compiling a Fortran source with polymorphic feature usage is
  encountering an internal compiler error in the xlfhot component
  of the compiler.
  
  
     =====  TEST CASE  =====
  
  (test case is reduced and not valid, but triggers the internal
  compiler error)
  
  MODULE mymod
  
        ABSTRACT INTERFACE
          SUBROUTINE asub ()
          END
        END INTERFACE
  
        TYPE, PUBLIC :: atype
          CONTAINS
            PROCEDURE, NOPASS :: get => my_get
        END TYPE atype
  
   CONTAINS
        SUBROUTINE my_get (parm , proc)
          real, INTENT( OUT ) :: parm
          PROCEDURE( asub ), POINTER, OPTIONAL :: proc
        END SUBROUTINE my_get
  
        SUBROUTINE my_sub ()
          CLASS(atype), pointer :: this
          real :: parm_cart
          CALL this%get( parm=parm_cart )
        END
  
  END MODULE mymod
  
  
  > xlf2003 -c test.f90
  ** mymod   === End of Compilation 1 ===
  1585-100  Internal compiler error -- please contact your service
  representative. For more information visit:
  http://www.ibm.com/support/docview.wss?uid=swg21110810
  1501-511  Compilation failed for file test.f90.
  >
  

Local fix

Problem summary

• PROBLEM DESCRIPTION:
  Compilation fails due to internal compiler error.
  
  USERS AFFECTED:
  Users having procedure pointer dummy arguments with optional
  attributes in their applications may experience this problem.
  

Problem conclusion

• The problem has been fixed.
  

Temporary fix

Comments

APAR Information

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

  LI77728

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

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5725C7400

Applicable component levels