Fixes are available
XL Fortran for Blue Gene/Q Fix Pack 12 (May 2015 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 14 (May 2016 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 15 (October 2017 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 11 (February 2015 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 13 (August 2015 Update) for 14.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 number
LI78416
Reported component name
XL FORTRAN FOR
Reported component ID
5799AH100
Reported release
E10
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2015-02-13
Closed date
2015-02-13
Last modified date
2015-02-13
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fix information
Fixed component name
XL FORTRAN FOR
Fixed component ID
5799AH100
Applicable component levels
RE10 PSN IV66132
UP06/09/13
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SS2MB5","label":"XL Fortran for Blue Gene\/Q"},"Component":"","ARM Category":[],"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"ALL VERSIONS","Edition":"","Line of Business":{"code":"LOB57","label":"Power"}}]
Document Information
Modified date:
13 February 2015