Fixes are available
XL Fortran for Blue Gene/Q Fix Pack 12 (May 2015 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 14 (May 2016 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 15 (October 2017 Update) for 14.1
May 2013 Update for XL Fortran for Blue Gene/Q, V14.1
XL Fortran for Blue Gene/Q Fix Pack 5 (August 2013 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 6 (November 2013 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 7 (February 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 8 (May 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 9 (August 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 10 (November 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 11 (February 2015 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 13 (August 2015 Update) for 14.1
APAR status
Closed as program error.
Error description
The following test case causes the xlfentry component of the compiler to abend: $ cat t.f module mmm type base integer :: iii procedure(sub1), nopass, pointer :: ppp end type interface subroutine sub1(arg) integer :: arg end end interface end module module nnn use mmm end module module ooo use mmm use nnn end module $mpixlf2003 -g -O0 t.f
Local fix
N/A
Problem summary
USERS AFFECTED: Users who have derived types that have procedure pointer components with explicit interface in a module are affected by this issue. Based on the use association combination, users may encounter an internal compiler error in the compiler front end due to missing procedure symbol that hosts the dummy arguments of the procedure pointer. PROBLEM DESCRIPTION: Compiler produces a internal compiler error in the front end. It is because that we created a dummy argument list for the procedure pointer component of a derived type. The dummy argument actually belongs to the interface of the procedure pointer. When the interface of the procedure pointer is not read in via use association but the procedure pointer is, the dummy argument list associated with the procedure pointer lost its procedure direction.
Problem conclusion
The fix is to use the existing argument list from the interface instead of reading from the module and create local one.
Temporary fix
Comments
APAR Information
APAR number
LI77221
Reported component name
XL FORTRAN FOR
Reported component ID
5799AH100
Reported release
E10
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2013-02-19
Closed date
2013-05-29
Last modified date
2013-05-29
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 FOR
Fixed component ID
5799AH100
Applicable component levels
RE10 PSY
UP
Document Information
Modified date:
29 May 2013