IV68015: LOOP ITERATION VARIABLE WITH OMP SHARED DATA-SHARING ATTRIBUTE INCORRECTLY PRIVATIZED

XL Fortran for AIX Fix Pack 4 (July 2015 PTF) for 15.1
XL Fortran for AIX Fix Pack 6 (February 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 7 (May 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 8 (August 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 9 (June 2017 Update) for 15.1
XL Fortran for AIX Fix Pack 10 (February 2018 PTF) for 15.1
XL Fortran for AIX Fix Pack 2 (December 2014 PTF) for 15.1
XL Fortran for AIX Fix Pack 3 (April 2015 PTF) for 15.1
XL Fortran for AIX Fix Pack 5 (November 2015 Update) for 15.1

APAR status

• Closed as program error.

Error description

• An OMP PARALLEL section with a SHARED data-sharing attribute
  incorrectly privatizes the listed loop iteration variable.
  
  In the test case below, the SHARED variable, j, is privatized in
  the OMP section, so upon exiting the OMP section, the value
  incorrectly reverts back to the value prior to entering the OMP
  section.
  
  
  $ cat apar.f90
  program main
    implicit none
    integer :: i, j = 0
  
    j=0
  !$omp parallel shared(j)
  !$omp do
    do i = 1, 1
      do j = 1, 1
      end do
      j = 10
      print *, "In  parallel: j =", j
    end do
  !$omp end do
  !$omp end parallel
    print *, "End parallel: j =", j
  end program main
  $
  $
  $ xlf_r -qsmp=omp apar.f90
  ** main   === End of Compilation 1 ===
  1501-510  Compilation successful for file apar.f90.
  $ ./a.out
   In  parallel: j = 10
   End parallel: j = 0      // 'j' VALUE SHOULD BE 10
  $
  

Local fix

Problem summary

• PROBLEM DESCRIPTION:
  The compiler incorrectly privatizes loop variables of
  sequential loops in the scope of a workshare do construct
  instead of an enclosing parallel or task construct.
  
  USERS AFFECTED:
  Users of applications with sequential loops enclosed in a
  workshare do which in turn is enclosed in a parallel or task
  construct may experience this problem.
  

Problem conclusion

• Problem has been fixed.
  

Temporary fix

Comments

APAR Information

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

  IV66132

• 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

• RF10 PSY