LI76963: XLFENTRY ABEND AT -O2

November 2012 Update for XL Fortran for Blue Gene/Q, V14.1
February 2013 Update for XL Fortran for Blue Gene/Q, V14.1

APAR status

• Closed as program error.

Error description

• 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.
  

Local fix

• n/a
  

Problem summary

• 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.
  

Problem conclusion

• The problem has been fixed.
  

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:

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5799AH100

Applicable component levels

• RE10 PSY

     UP