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 9 (August 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 10 (November 2014 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
In the below test case, foo is considered unallocated after returning from the initialize subroutine with threadprivate attribute. This only fails when the initialize subroutine is in a module, not when it is outside of a module in the same file. Also if commenting out the threadprivate attribute, foo is also allocated. ===== TESTCASE: $cat xlf-omp.f90 module init implicit none integer, save, allocatable :: foo(:) !$omp threadprivate (foo) ! comment this line will make the test case pass contains subroutine initialize() allocate(foo(1)) ! this succeeds though status line is omitted for brevity end subroutine initialize end module init program main use init implicit none !$omp parallel call initialize() print*, allocated(foo) ! prints F !$omp end parallel end program main ===== ACTUAL OUTPUT: xlf90_r -qsmp=omp xlf-omp.f90 $./a.out F ===== EXPECTED OUTPUT: xlf90_r -qsmp=omp xlf-omp.f90 $./a.out T
Local fix
Use option -qsmp=omp:noostls
Problem summary
USERS AFFECTED: Fortran OMP users may be affected by this issue. PROBLEM DESCRIPTION: Fortran allocatable array with OMP threadprivate attribute declared within a module named 'init' is not allocated and accessed correctly.
Problem conclusion
The fix is to ensure that Fortran module related functions are not considered as C++ Init/Term functions. An additional check has been added in the compiler for the above.
Temporary fix
Comments
APAR Information
APAR number
LI77898
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
2014-03-05
Closed date
2014-08-14
Last modified date
2014-08-14
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 PSY
UP
[{"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:
14 August 2014