LI77011: INTERNAL COMPILER ERROR FROM POINTER

September 2012 Update for XL Fortran for Linux, V14.1
December 2012 Update for XL Fortran for Linux, V14.1
April 2013 Update for XL Fortran for Linux, V14.1
XL Fortran for Linux Fix Pack 4 (October 2013 Update) for 14.1
XL Fortran for Linux Fix Pack 5 (December 2013 Update) for 14.1
XL Fortran for Linux Fix Pack 6 (February 2014 Update) for 14.1
XL Fortran for Linux Fix Pack 7 (May 2014 Update) for 14.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 LINU

• Fixed component ID

  5725C7500

Applicable component levels

• RE10 PSY

     UP