IV45872: INTERNAL ERROR WITH USE IN EXTERNAL FUNCTION

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 5 (September 2013 PTF) for 14.1
XL Fortran for AIX Fix Pack 6 (December 2013 PTF) 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

• Fortran code with a USE statement in an external function is
  encountering an internal compiler error in the xlfentry
  component of the comiler.
  
  
    ====  TEST CASE  ====
  
  Code with USE usage similar to:
  
  MODULE module_1
    CONTAINS
      SUBROUTINE mysub(parent)
        USE module_domain
        TYPE(domain),POINTER  :: parent
      END SUBROUTINE mysub
  END MODULE module_1
  
  LOGICAL FUNCTION myfunc()
    USE module_1
    myfunc = .TRUE.
  END FUNCTION myfunc
  
  
  $ xlf90_r -c module_dm.f90
  ** module_1   === End of Compilation 1 ===
  xlf90_r: 1501-230 (S) 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 module_dm.f90.
  $
  

Local fix

Problem summary

• USERS AFFECTED:
  Clients making use of the USE statement maybe affected by this
  issue.
  
  PROBLEM DESCRIPTION:
  When a USE statement appears inside an external function, and
  the USE module contains derived type
  definitions written a certain way and involving types accessed
  via USE only statements, an internal compiler error occurs.
  

Problem conclusion

• The compiler has been fixed to avoid the internal compiler
  error for the above case.
  

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:

  LI77663 LI77681

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5725C7400

Applicable component levels