LI77651: ASSERTION `SCOPE_DIFF > 0' FAILED

XL Fortran for Linux Fix Pack 4 (October 2013 Update) for 14.1
XL Fortran for Linux Fix Pack 5 (December 2013 Update) for 14.1
XL Fortran for Linux Fix Pack 6 (February 2014 Update) for 14.1
XL Fortran for Linux Fix Pack 7 (May 2014 Update) for 14.1

APAR status

• Closed as program error.

Error description

• Compiling a Fortran application encounters the following
  internal error in the xlfcode component of the compiler.  No
  optimization is enabled.
  
  
  xlfcode:cw_breg.c:239: load_backchain: Assertion
              `scope_diff > 0' failed.
  
  /opt/ibmcmp/xlf/bg/14.1/bin/.orig/xlf90_r: 1501-224 (S) fatal
  error in /opt/ibmcmp/xlf/bg/14.1/exe/xlfcode: signal 6 received
  

Local fix

Problem summary

• PROBLEM DESCRIPTION:
  The compiler encounters an internal error when calling a
  Fortran procedure with an assumed-size or explicit shape
  argument that also has an optional character argument with
  assumed-length.  For example:
  
  test.f90:
  contains
  
  SUBROUTINE t1(afull, mat_label)
  implicit none
  real :: afull(*)
  character(*), optional :: mat_label
  END SUBROUTINE
  
  SUBROUTINE t2()
  implicit none
  real, pointer   :: U_full(:)
  
  call t1(U_full)
  
  END SUBROUTINE
  
  END
  
  USERS AFFECTED:
  Users who have procedures with OPTIONAL assumed-length
  character arguments.
  

Problem conclusion

• Fixed the interface to handle optional assumed-length character
  dummy arguments that are not present.
  

Temporary fix

Comments

APAR Information

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

  LI77227

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

Fix information

• Fixed component name

  XL FORTRAN LINU

• Fixed component ID

  5725C7500

Applicable component levels

• RE10 PSN LI77227

     UP06/09/13