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
XL Fortran for Blue Gene/Q Fix Pack 8 (May 2014 Update) for 14.1
Closed as program error.
The compiler is encountering an internal compiler error when processing pointers to functions. ===== TEST CASE ===== module mm CONTAINS function f1() integer, pointer :: f1 integer, target :: a1 f1 => a1 end function subroutine s2() call s1(f1()) end subroutine subroutine s1(a3) integer, pointer :: a3 end subroutine end module $ xlf -q64 -O2 -c reduce.F90 ** mm === 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 reduce.F90.
Reorder procedure definitions so that the function returning pointer results is defined after the first procedure definition that calls it.
PROBLEM DESCRIPTION: The compiler encounters an internal compiler error when -O2 or higher optimization is included in the invocation. USERS AFFECTED: Applications that pass a pointer function result to a procedure and the function definition appears before the call-site.
The problem has been fixed.
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