IV31551: INTERNAL COMPILER ERROR WITH INVALID COMPONENT

February 2013 PTF for XL Fortran for AIX, V13.1

APAR status

• Closed as program error.

Error description

• Compiling the following test case produces Internal Compiler
  Error. The test case references ZLAND, a non-existent component
  of the RFIELD_ACCESS type (it should be LAND).
  
  !comp_test.f90
  
  SUBROUTINE COMPILER_ERROR
  
  IMPLICIT NONE
  
  INTEGER, PARAMETER :: KLON = 10
  LOGICAL            :: LLLAND(KLON)
  
  TYPE RFIELD_ACCESS
     real, pointer :: land(:) => null()
  END TYPE
  TYPE(RFIELD_ACCESS) :: YLRL
  
  YLRL%LAND=0.0
  WHERE(LLLAND) YLRL%ZLAND=1.0
  
  END SUBROUTINE
  

Local fix

• correct the code.
  

Problem summary

• PROBLEM DESCRIPTION: Internal Compiler Error without issuing a
  proper error message when the user specifies invalid component
  names.
  
  USERS AFFECTED: Users having invalid component names in their
  code may encounter this problem.
  

Problem conclusion

• The problem has been fixed. Apply provided service.
  

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:

  IV33975 LI77242 IV37622 LI77377

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5724X1500

Applicable component levels

• RD10 PSY U857531

     UP C