IV85623: 'INVALID COMPONENT NAME' ERROR WHEN ACCESSING GRANDPARENT PROCEDURE

XL Fortran for AIX Fix Pack 2 (July 2016 PTF) for 15.1.3
XL Fortran for AIX, V15.1.3.3 Fix Pack (December 2016)
XL Fortran for AIX, V15.1.3.4 Fix Pack (April 2017)
XL Fortran for AIX, V15.1.3.5 Fix Pack (July 2018)

APAR status

• Closed as program error.

Error description

• When accessing a procedure two type-levels away from a
  grandchild type, an invalid error message is output.
  
  
  
     === TEST CASE ===
  
  module A
  implicit none
  private
  type :: A_t
     contains
       procedure :: set => set_A
       end type
  public:: A_t
  contains
    subroutine set_A(this)
      class(A_t), intent(inout) :: this
      write(*,*) 'Set from A'
      end subroutine set_A
  end module A
  
  module B
  USE A
  implicit none
  private                          ! REMOVING 'private' WORKS
  type, extends(A_t) :: B_t
     end type
  public :: B_t
  end module B
  
  module C
  USE B
  implicit none
  private
  type, extends(B_t) :: C_t
     contains
       procedure :: set => set_C
       end type
  public :: C_t
  contains
    subroutine set_C(this)
      class(C_t), intent(inout) :: this
      write(*,*) 'Set from C'
      call this%B_t%A_t%set()      ! ERROR ON THIS LINE
      !call this%B_t%set()         ! WORKAROUND
      end subroutine set_C
  end module C
  
  
  
  $ xlf2003_r -c test.f90
  ** a   === End of Compilation 1 ===
  ** b   === End of Compilation 2 ===
  "test.f90", line 38.19: 1514-088 (S) Invalid component name.
  ** c   === End of Compilation 3 ===
  1501-511  Compilation failed for file test.f90.
  $
  

Local fix

• Access prodecure via parent type.  See above test case.
  

Problem summary

• PROBLEM DESCRIPTION:
  The compiler does not allow the reference to the parent
  component when it should be accessible.
  
  USERS AFFECTED:
  Users who have
  1. at least two levels of use association,
  and
  2. at least two levels of type hierarchy,
  and
  3. the last compilation unit references the parent component of
  the type that is declared in the top module,
  and
  4. the type has public accessibility in the module in which it
  is declared ,
  and
  5. The type is not accessible in the compilation unit where the
  parent component is referenced.
  

Problem conclusion

• The standard says the parent component has the accessibility of
  its type.  It has been clarified that it means the
  accessibility of its type in the module in which it is
  declared.  Therefore, such usage is standard conforming.
  

Temporary fix

Comments

APAR Information

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

  LI78935

• 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

• RF13 PSN LI78935

     UP06/09/13