LI81737: INVALID COMPONENT NAME ERROR

APAR status

• Closed as program error.

Error description

• The following test case fails to compile with a '1514-088 (S)
  Invalid component name" error:
  
  
  
  $ cat t.f
  module mo_cloud_optics
    use mo_optical_props, only: ty_optical_props,      &
                                ty_optical_props_arry, &
                                ty_optical_props_1scl, &
                                ty_optical_props_2str
  contains
    function cloud_optics(this, optical_props)
      class(ty_optical_props), intent(in   ) :: this
      class(ty_optical_props_arry), intent(inout) :: optical_props
      character(len=128)      :: cloud_optics
      integer :: i
        select type(optical_props)
        type is (ty_optical_props_1scl)
          !$omp target parallel do map(from:optical_props%tau)
          do i= 1, 10
          end do
        type is (ty_optical_props_2str)
          !$omp target map(from:optical_props%ssa)
            print*, "hello"
          !$omp end target
        end select
    end function cloud_optics
  
  end module mo_cloud_optics
  $
  

Local fix

• N/A
  

Problem summary

• USERS AFFECTED:
  Users who
  1. use the SELECT TYPE construct, and
  2. have an OMP construct inside a TYPE IS
  statement, and
  3. Reference a derived type component
  may encounter compile time failure.
  
  PROBLEM DESCRIPTION:
  There is a compiler bug that incorrectly issues an error message
  for the reference of the derived type component.
  

Problem conclusion

• The compiler has been fixed to resolve the issue.
  

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:

Fix information

• Fixed component name

  XL FORTRAN LINU

• Fixed component ID

  5725C7510

Applicable component levels