LI78257: XLF OMP THREADPRIVATE ALLOCATION FAILURE

XL Fortran for Linux Fix Pack 2 (February 2015 Update) for 15.1
XL Fortran for Linux Fix Pack 1 (October 2014 Update) for 15.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 is sysrouted FROM one or more of the following:

  LI77898

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

Fix information

• Fixed component name

  XL FORTRAN LINU

• Fixed component ID

  5725C7500

Applicable component levels

• RF10 PSY

     UP