IV31630: INTERNAL COMPILER ERROR FROM POINTER

November 2012 PTF for XL Fortran for AIX, V14.1
March 2013 PTF for XL Fortran for AIX, V14.1

APAR status

• Closed as program error.

Error description

• 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.
  

Local fix

• Reorder procedure definitions so that the function returning
  pointer results is defined after the first procedure definition
  that calls it.
  

Problem summary

• 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.
  

Problem conclusion

• The problem has been fixed.
  

Temporary fix

Comments

APAR Information

• APAR is sysrouted FROM one or more of the following:

  LI76859

• APAR is sysrouted TO one or more of the following:

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5725C7400

Applicable component levels

• RE10 PSY U856076

     UP C