Fixes are available
November 2012 PTF for XL Fortran for AIX, V14.1
March 2013 PTF for XL Fortran for AIX, V14.1
XL Fortran for AIX Fix Pack 4 (June 2013 PTF) for 14.1
XL Fortran for AIX Fix Pack 5 (September 2013 PTF) for 14.1
XL Fortran for AIX Fix Pack 6 (December 2013 PTF) for 14.1
XL Fortran for AIX Fix Pack 7 (March 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 8 (July 2014 PTF) for 14.1
XL Fortran for AIX Fix Pack 9 (October 2014 PTF) 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
RE10 PSY U856076