LI77556: INTERNAL ERROR DUE TO 'USE, ONLY' USAGE

XL Fortran for Blue Gene/Q Fix Pack 12 (May 2015 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 14 (May 2016 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 15 (October 2017 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 6 (November 2013 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 7 (February 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 8 (May 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 9 (August 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 10 (November 2014 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 11 (February 2015 Update) for 14.1
XL Fortran for Blue Gene/Q Fix Pack 13 (August 2015 Update) for 14.1

APAR status

• Closed as program error.

Error description

• An internal compiler error is encountered when using the "use,
  only" statement.
  
  
     ====  TEST CASE  ====
  
  module m
    interface cons
      procedure cons42
    end interface cons
  contains
    integer function cons42()
      cons42 = 42
    end function cons42
  end module m
  
  
  module m2
    type cons
      integer :: j = -1
    end type cons
    interface cons
      procedure consT
    end interface cons
  contains
    type(cons) function consT(k)
      integer :: k
      consT%j = k**2
    end function consT
  end module m2
  
  
  use m
  use m2, only: cons
  implicit none
  type(cons) :: x
  integer :: k
  x = cons(3)
  k = cons()
  end
  
  
  > xlf test.f90
  ** m   === End of Compilation 1 ===
  ** m2   === End of Compilation 2 ===
  1517-009:(U)Error in compiler runtime system; compilation ended.
  xlf: 1501-230 (S) 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 test.f90.
  >
  

Local fix

• Remove "only: cons"
  

Problem summary

• PROBLEM DESCRIPTION:
  When a module has a generic name that is the same as a derived
  type name, if the name is used by the USE, ONLY statement, the
  compiler may encounter an internal error.
  
  USERS AFFECTED:
  Users who have such name collision are affected.
  

Problem conclusion

• The issue has been corrected.
  

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:

  IV53288

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5799AH100

Applicable component levels

• RE10 PSY

     UP