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
XL Fortran for AIX Fix Pack 10 (February 2015 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