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

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

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

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

  IV66141 IV68015 LI78416 LI78483

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5724X1500

Applicable component levels

• RD10 PSY U867965

     UP C