IV53287: INTERNAL ERROR WITH VECTOR SUBSCRIPT

XL Fortran for AIX Fix Pack 11 (May 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 12 (August 2015 Update) for 14.1
XL Fortran for AIX Fix Pack 15 (April 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 16 (July 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 17 (November 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 18 (February 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 19 (August 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 6 (December 2013 PTF) for 14.1
XL Fortran for AIX Fix Pack 7 (March 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 8 (July 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 9 (October 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 10 (February 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 14 (December 2015 Update) for 14.1

APAR status

• Closed as program error.

Error description

• An internal compiler error occurs when trying to copy elements
  from an array into a parameter for c_f_pointer.
  
  
    ==== TEST CASE ====
  
  use iso_c_binding
  type(c_ptr) :: x
  integer, target :: array(3)
  integer, pointer :: ptr2(:,:,:)
  integer :: myshape(5)
  
  array = [22,33,44]
  x = c_loc(array)
  myshape = [1,2,3,4,1]
  
  call c_f_pointer(x, ptr2, shape=myshape([1,3,1]))
  if (any (lbound(ptr2) /= [ 1, 1, 1])) call abort ()
  if (any (ubound(ptr2) /= [ 1, 3, 1])) call abort ()
  if (any (shape(ptr2) /= [ 1, 3, 1])) call abort ()
  if (any (ptr2(1,:,1) /= array)) call abort()
  end
  
  
  > xlf test.f90
  ** _main   === End of Compilation 1 ===
  1585-100  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.
  >
  

Local fix

• Do not use the subscript.
  

Problem summary

• PROBLEM DESCRIPTION:
  When user passes a section with vector subscripts as the SHAPE
  argument to C_F_POINTER, the xlfhot component of the compiler
  encounters an internal error.
  
  USERS AFFECTED:
  Those who pass a section with vector subscripts as the SHAPE
  argument to C_F_POINTER.
  

Problem conclusion

• Compiler was fixed to pullout expressions containing vector
  subscript and scalarize them prior to the expansion of
  C_F_POINTER.
  

Temporary fix

Comments

APAR Information

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

  LI77552

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

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5725C7400

Applicable component levels