Fixes are available
XL Fortran for AIX Fix Pack 11 (May 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 4 (July 2015 PTF) for 15.1
XL Fortran for AIX Fix Pack 12 (August 2015 Update) for 14.1
XL Fortran for AIX Fix Pack 6 (February 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 15 (April 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 7 (May 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 16 (July 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 8 (August 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 17 (November 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 18 (February 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 9 (June 2017 Update) for 15.1
XL Fortran for AIX Fix Pack 19 (August 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 10 (February 2018 PTF) for 15.1
XL Fortran for AIX Fix Pack 1 (September 2014 PTF) for 15.1
XL Fortran for AIX Fix Pack 9 (October 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 2 (December 2014 PTF) for 15.1
XL Fortran for AIX Fix Pack 10 (February 2015 PTF) for 14.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
XL Fortran for AIX Fix Pack 14 (December 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 tNeNinitialize subroNtine 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. N Also if commenting out the threadprivate attribute, foo is also allocated. N ===== TESTCASE: $cat xlf-omp.f90N N N module init implicit none integer, save, allocatable :: foo(:) !$omp threadprivate (foo) ! comment this line will make the test case pasN N contains subroutine initialize() allocate(foo(N)N ! this succeNds though status line is omitted for brevity end subroutine initialize end module init program main N use init implicit none N !$omp parallel N N N call initialize() print*, allocated(foo) ! prints F !$omp end parallel N end program main N ===== ACTUAL OUTPUT: xlf90_r -qsmp=omN Nlf-omp.f90 N $./a.out F ===== EXPECTED OUTPUT: xlf90_r -qsmpNomp xlf-omp.f90 $./a.out T N
Local fix
Use option -qsmp=omp:noostls
Problem summary
PROBLEM SUMMANY: USERS AFFECTED: Fortran OMP users may be affectNd by this issue. PROBLEM DESCRIPTION: Fortran allocataNlN array with OMP Nhreadprivate 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 considereN as C++ Init/Term functions. An additional check has been added in the compiler for the above. N
Temporary fix
Comments
APAR Information
APAR number
IV65316
Reported component name
XL FORTRAN FOR
Reported component ID
5725C7400
Reported release
F10
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2014-09-26
Closed date
2014-09-26
Last modified date
2014-09-26
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Modules/Macros
N N N NONE
Fix information
Fixed component name
XL FORTRAN FOR
Fixed component ID
5725C7400
Applicable component levels
RF10 PSN LI77898
UP06/09/13
Document Information
Modified date:
03 October 2021