Fixes are available
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
Rate this page:
Copyright and trademark information
IBM, the IBM logo and ibm.com are trademarks of International Business Machines Corp., registered in many jurisdictions worldwide. Other product and service names might be trademarks of IBM or other companies. A current list of IBM trademarks is available on the Web at "Copyright and trademark information" at www.ibm.com/legal/copytrade.shtml.