IZ89585: INTERNAL COMPILER ERROR

March 2011 PTF for XL Fortran for AIX, V13.1
August 2011 PTF for XL Fortran for AIX, V13.1
January 2012 PTF for XL Fortran for AIX, V13.1
April 2012 PTF for XL Fortran for AIX, V13.1
July 2012 PTF for XL Fortran for AIX, V13.1
October 2012 PTF for XL Fortran for AIX, V13.1
February 2013 PTF for XL Fortran for AIX, V13.1
May 2013 PTF for XL Fortran for AIX, V13.1
XL Fortran for AIX Fix Pack 15 (August 2013 PTF) for 13.1
XL Fortran for AIX Fix Pack 16 (November 2013 PTF) for 13.1
XL Fortran for AIX Fix Pack 17 (February 2014 PTF) for 13.1
XL Fortran for AIX Fix Pack 21 (April 2015 PTF) for 13.1
XL Fortran for AIX Fix Pack 22 (September 2015 PTF) for 13.1
XL Fortran for AIX Fix Pack 23 (March 2016 PTF) for 13.1
XL Fortran for AIX Fix Pack 24 (September 2016 PTF) for 13.1

APAR status

• Closed as program error.

Error description

• An internal compiler error is reported.
  
  ===== Test Case
  module scalar_tensor_module
     type, abstract :: scalar_tensor
      contains
       procedure(add_interface),deferred:: add
       procedure(assign_interface),deferred:: assign
       generic :: operator(+)=>add
       generic :: assignment(=)=>assign
     end type
     abstract interface
       function add_interface(lhs,rhs)
        import :: scalar_tensor
        class(scalar_tensor),intent(in) :: lhs,rhs
        class(scalar_tensor),allocatable :: add_interface
       end function
       subroutine assign_interface(lhs,rhs)
        import :: scalar_tensor
        class(scalar_tensor),intent(inout) :: lhs
        class(scalar_tensor),intent(in) :: rhs
       end subroutine
     end interface
  end module
  
  module tensor_module
     use scalar_tensor_module
  
     type, extends(scalar_tensor) :: tensor
       contains
       procedure  :: add
       procedure :: assign
     end type
  
     contains
  
     function add(lhs,rhs)
      class(tensor),intent(in) :: lhs
      class(scalar_tensor),intent(in) :: rhs
      class(scalar_tensor),allocatable :: add
      allocate(tensor::add)
     end function
  
     subroutine assign(lhs,rhs)
      class(tensor),intent(inout) :: lhs
      class(scalar_tensor), intent(in) :: rhs
     end subroutine
  
  end module
  
  program main
    use tensor_module , only: tensor
    use scalar_tensor_module, only: scalar_tensor
  
    type(tensor),target :: t1
    class(scalar_tensor),pointer :: st1
  
    t1=t1 +t1
    st1=>t1
    st1=st1+st1
  end
  =================================================
  

Local fix

• Within 'program main', rearrange the order of the 'use'
  statements.
  
  ...
  program main
    use scalar_tensor_module, only: scalar_tensor !<- place 1st
    use tensor_module , only: tensor
  ...
  

Problem summary

• PROBLEM DESCRIPTION:
  The compiler encounters an internal compiler error in a
  particular area of the compiler due to a front end bug.
  
  USERS AFFECTED:
  This is a design bug, so users who have XLF 11.1 and later will
  have this problem if they have a specific order of using
  modules.
  

Problem conclusion

• This bug will be fixed.
  

Temporary fix

Comments

APAR Information

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

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

  LI76066

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5724X1500

Applicable component levels

• RD10 PSY U842152

     UP C