Fixes are available
November 2012 Update for XL Fortran for Blue Gene/Q, V14.1
February 2013 Update for XL Fortran for Blue Gene/Q, V14.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
Closed as program error.
The Fortran front-end (xlfentry) abends when the following test case is compiled at -O2: ===== COMPILE COMMAND: bgxlf2003 -c test.f90 -O2 ===== TESTCASE: $ cat test.f90 module Q_F90_Compiler_Bugs type A integer :: i = 0 end type A type B type(A) :: j real, allocatable :: data(:) type(B), pointer :: next => null() end type B type C type(B), pointer :: nu_d_edist(:) end type C contains subroutine foo(nuc) type(C), pointer :: nuc allocate(nuc % nu_d_edist(1)) end subroutine foo end module Q_F90_Compiler_Bugs $ ===== ACTUAL OUTPUT: $ bgxlf2003 -c test.f90 -O2 /opt/ibmcmp/xlf/bg/14.1/bin/.orig/bgxlf2003: 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 test.f90. $ ===== EXPECTED OUTPUT: Should not abend.
USERS AFFECTED: Users having recursive type definitions in their applications may encounter this problem. PROBLEM DESCRIPTION: Compilation may fail when user application has objects of recursive type and optimization level -O2 or above is in effect.
The problem has been fixed.
Reported component name
XL FORTRAN FOR
Reported component ID
Last modified date
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fixed component name
XL FORTRAN FOR
Fixed component ID
Applicable component levels