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
November 2012 Update for XL Fortran for Blue Gene/Q, V14.1
February 2013 Update for XL Fortran for Blue Gene/Q, V14.1
May 2013 Update for XL Fortran for Blue Gene/Q, V14.1
XL Fortran for Blue Gene/Q Fix Pack 5 (August 2013 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 6 (November 2013 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 7 (February 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 8 (May 2014 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
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
LI77020
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
2012-10-09
Closed date
2012-11-23
Last modified date
2012-11-23
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
Document Information
Modified date:
23 November 2012