A fix is available
APAR status
Closed as program error.
Error description
The following test case gives out incorrect output if compiled by xlf. xlf test.f90 module proc implicit none integer, parameter :: basis_length = 2 contains subroutine test(f) integer, intent(in) :: f(basis_length) print *, f end subroutine test end module proc program test_proc_pointers use proc implicit none abstract interface subroutine i_test(f) use proc, only: basis_length implicit none integer, intent(in) :: f(basis_length) end subroutine i_test end interface procedure(i_test), pointer :: test_ptr integer, pointer :: y(:) allocate(y(basis_length)) test_ptr => test y = (/ 65535, 0 /) call test_ptr(y) !xlf gives incorrect result on this call deallocate(y) end program test_proc_pointers ===== ACTUAL OUTPUT: test 00000000000000000000000100010001 00010000000000010001111001000000 ===== EXPECTED OUTPUT: test 00000000000000001111111111111111 00000000000000000000000000000000
Local fix
Problem summary
PROBLEM DESCRIPTION: Users get wrong results when invoking a procedure pointer and passing pointer arrays to explicit shape dummy arguments USERS AFFECTED: Users who make indirect calls to procedures with explicit shape arrays and pass pointer arrays as actual argument
Problem conclusion
Compiler now avoids incorrect outlining of indirect procedure calls. Problem is fixed.
Temporary fix
Comments
APAR Information
APAR number
LI77800
Reported component name
XL FORTRAN SLES
Reported component ID
5724U8400
Reported release
C10
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2014-01-15
Closed date
2014-01-15
Last modified date
2014-01-15
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 SLES
Fixed component ID
5724U8400
Applicable component levels
RC10 PSN LI77195
UP06/09/13
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSB259","label":"XL Fortran Advanced Edition for Linux"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"C.1","Line of Business":{"code":"LOB57","label":"Power"}}]
Document Information
Modified date:
24 February 2022