Fixes are available
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
Rate this page:
Copyright and trademark information
IBM, the IBM logo and ibm.com are trademarks of International Business Machines Corp., registered in many jurisdictions worldwide. Other product and service names might be trademarks of IBM or other companies. A current list of IBM trademarks is available on the Web at "Copyright and trademark information" at www.ibm.com/legal/copytrade.shtml.