IV67661: MISSING PROCEDURE LIST ERROR WHEN USING SIZEOF IN CHARACTER ARRAY DEFINITION

XL Fortran for AIX Fix Pack 11 (May 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 12 (August 2015 Update) for 14.1
XL Fortran for AIX Fix Pack 15 (April 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 16 (July 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 17 (November 2016 Update) for 14.1
XL Fortran for AIX Fix Pack 18 (February 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 19 (August 2017 Update) for 14.1
XL Fortran for AIX Fix Pack 10 (February 2015 PTF) for 14.1
XL Fortran for AIX Fix Pack 14 (December 2015 Update) for 14.1

APAR status

• Closed as program error.

Error description

• Using the SIZEOF intrinsic is causing a (U) error when the
  SIZEOF is used in an array definition:
  
        CHARACTER(LEN=SIZEOF(VAL)) char_val
  
  
  
  
     === TEST CASE ===
  
        SUBROUTINE TEST ()
        character*6    val
        CHARACTER(LEN=SIZEOF(VAL)) char_val
        RETURN
        END
  
  
  
  "test.f", line 3.28: 1516-050 (S) Expression or initial value
  must be evaluated at compile time.
  1517-004: (U) Missing procedure list entries.  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.f.
  

Local fix

• Use the LEN intrinsic instead of SIZEOF:
  
       CHARACTER(LEN=LEN(VAL)) char_val
  

Problem summary

• PROBLEM DESCRIPTION:
  The compiler does not evaluate the result of SIZEOF at compile
  time when the argument of the intrinsic has compile-time known
  size.  Instead, the compiler either incorrectly issues an error
  message or generates runtime code that can get lost due to
  freeing stacks.
  
  USERS AFFECTED:
  Users who use the SIZEOF intrinsic on character types in an
  initialization expression or specification expression.
  

Problem conclusion

• The SIZEOF intrinsic has been fixed to produce the correct
  result.
  

Temporary fix

Comments

APAR Information

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

  IV67649

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

  IV72847

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5725C7400

Applicable component levels

• RE10 PSY

     UP