LI77992: Internal compiler error with missing procedure list

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

• ===== DESCRIPTION:
  When compiling the provided test case, the compiler is abending.
  
  ===== COMPILE COMMAND:
  xlf2003_r test.f90
  
  ===== TESTCASE:
  
  $ cat test.f90
  program foo
    implicit none
    real, allocatable :: bar(:)
    character(len=5) :: baz(2)
    character(len=5) :: bazz
    integer :: ierror
    allocate(bar(10))
    deallocate(bar, stat=ierror, errmsg=baz(1))
    allocate(bar(10))
    deallocate(bar, stat=ierror, errmsg=bazz)
  end program foo
  $
  
  ===== ACTUAL OUTPUT:
  $ xlf2003_r test.f90
      1517-004: (U) Missing procedure list entries.  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 compile clean.
  

Local fix

• N/A
  

Problem summary

• USERS AFFECTED:
  Users may see this problem if their application has an errmsg
  specifier with an array element on a deallocate statement.
  
  PROBLEM DESCRIPTION:
  Compilation may fail due to internal compiler error when
  processing errmsg argument of the deallocate statement.
  

Problem conclusion

• The compiler has been fixed to address this problem.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  IV56835

• 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