Fixes are available
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
Closed as program error.
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.
Replace call c_f_pointer(cpointer, farray, int(arr(1:2),8)) with call c_f_pointer(cpointer, farray, arr(1:2))
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.
The fix in the compiler is to handle conversion operations on SHAPE argument when transforming a call to C_F_POINTER.
Reported component name
XL FORTRAN FOR
Reported component ID
Last modified date
APAR is sysrouted FROM one or more of the following:
APAR is sysrouted TO one or more of the following:
Fixed component name
XL FORTRAN FOR
Fixed component ID
Applicable component levels