IV56825: POINTER SELF ASSIGNMENT CAUSES CORRUPT BOUNDS.

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

• Fortran descriptor gets corrupted during self-pointer
  assignment causing undefined behaviour such as segfault,
  incorrect result, or trap when -qcheck is enabled.
  

Local fix

• Create an intermediate pointer array and pointer assign to the
  original RHS, then use this temporary pointer to pointer assign
  to the original LHS.
  

Problem summary

• Fortran descriptor gets corrupted during self-pointer
  assignment causing undefined behaviour such as segfault,
  incorrect result, or trap when -qcheck is enabled.
  

Problem conclusion

• Cache array bounds information during pointer assignment to
  avoid corruption by self-pointer assignment.
  

Temporary fix

Comments

APAR Information

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

  LI77799

• 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