IV00385: INCORRECT OUTPUT WITH XLFHOT

August 2011 PTF for XL Fortran for AIX, V13.1
January 2012 PTF for XL Fortran for AIX, V13.1
April 2012 PTF for XL Fortran for AIX, V13.1
July 2012 PTF for XL Fortran for AIX, V13.1
October 2012 PTF for XL Fortran for AIX, V13.1
February 2013 PTF for XL Fortran for AIX, V13.1
May 2013 PTF for XL Fortran for AIX, V13.1
XL Fortran for AIX Fix Pack 15 (August 2013 PTF) for 13.1
XL Fortran for AIX Fix Pack 16 (November 2013 PTF) for 13.1
XL Fortran for AIX Fix Pack 17 (February 2014 PTF) for 13.1
XL Fortran for AIX Fix Pack 21 (April 2015 PTF) for 13.1
XL Fortran for AIX Fix Pack 22 (September 2015 PTF) for 13.1
XL Fortran for AIX Fix Pack 23 (March 2016 PTF) for 13.1
XL Fortran for AIX Fix Pack 24 (September 2016 PTF) for 13.1

APAR status

• Closed as program error.

Error description

• The following section in a Fortran program gets evaluated
  incorrectly by the compiler resulting in incorrect outputs:
  
  .
  .
  .
      DO jr = 1, imo
        za(jr+1:imo, jr) = za(jr, jr+1:imo)
      ENDDO
  .
  .
  .
  

Local fix

• A work-around would be to replace the line with the properly
  scalarized assignment:
  
  .
  .
  .
      DO jr = 1, imo
  !      za(jr+1:imo, jr) = za(jr, jr+1:imo)
  !*******workaround************
      DO jn=jr+1, imo
           za(jn, jr) = za(jr, jn)
         ENDDO
  !*******end of workaround*****
      ENDDO
  .
  .
  .
  

Problem summary

• PROBLEM DESCRIPTION:
  When an array appears within a self assignment with array
  sections in the RHS or LHS of the assignment,
  the assignment may produce incorrect results.
  

Problem conclusion

• The compiler optimization has now been fixed to check for
  equivalent array sections on the RHS and LHS of an array self
  assignment before executing.
  

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:

  LI76466 LI76472

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5724X1500

Applicable component levels

• RD10 PSY U844586

     UP C