Fixes are available
December 2012 Update for XL Fortran for Linux, V14.1
April 2013 Update for XL Fortran for Linux, V14.1
XL Fortran for Linux Fix Pack 4 (October 2013 Update) for 14.1
XL Fortran for Linux Fix Pack 5 (December 2013 Update) for 14.1
XL Fortran for Linux Fix Pack 6 (February 2014 Update) for 14.1
XL Fortran for Linux Fix Pack 7 (May 2014 Update) for 14.1
APAR status
Closed as program error.
Error description
When compiling the provided test case, the compiler produces an Internal Compiler Error. $cat test.f90 use, intrinsic :: iso_c_binding type(c_ptr) :: cpointer integer, pointer :: farray(:,:) integer :: arr(2) call c_f_pointer(cpointer, farray, int(arr(1:2), 8)) ! call c_f_pointer(cpointer, farray, arr(1:2)) end =====Compiler Command: mpixlf2003_r -d -c FreeIPC.f90 ===== ACTUAL OUTPUT: mpixlf2003_r -d -c FreeIPC.f90 ** fipc_module === End of Compilation 1 === 1585-100 Internal compiler error -- please contact your service representative. For more information visit: http://www.ibm.com/support/docview.wss?uid=swg21110810 1501-511 Compilation failed for file test.f90. ===== EXPECTED OUTPUT: Should not produce an internal compiler error.
Local fix
Replace call c_f_pointer(cpointer, farray, int(arr(1:2),8)) with call c_f_pointer(cpointer, farray, arr(1:2))
Problem summary
USERS AFFECTED: Users writing C-interoperable Fortran code and call C_F_POINTER and convert the type of the shape argument are potentially affected by this issue. PROBLEM DESCRIPTION: The compiler abends when converting the type of the shape argument to C_F_POINTER intrinsic.
Problem conclusion
The fix in the compiler is to handle conversion operations on SHAPE argument when transforming a call to C_F_POINTER.
Temporary fix
Comments
APAR Information
APAR number
LI77134
Reported component name
XL FORTRAN LINU
Reported component ID
5725C7500
Reported release
E10
Status
CLOSED PER
PE
NoPE
HIPER
NoHIPER
Special Attention
NoSpecatt
Submitted date
2012-12-17
Closed date
2012-12-17
Last modified date
2012-12-17
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 LINU
Fixed component ID
5725C7500
Applicable component levels
RE10 PSN LI77020
UP06/09/13
[{"Business Unit":{"code":"BU058","label":"IBM Infrastructure w\/TPS"},"Product":{"code":"SSAT4T","label":"XL Fortran for Linux"},"Platform":[{"code":"PF025","label":"Platform Independent"}],"Version":"14.1","Line of Business":{"code":"LOB57","label":"Power"}}]
Document Information
Modified date:
14 October 2021