LI77874: COMPILE TIME EXPRESSION EVALUATION ERROR

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 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

• The below test case is valid Fortran code, but XLF gives the
  following error message:
  
  $xlf test1.f -c
  ** test   === End of Compilation 1 ===
  "test1.f", line 9.39: 1516-050 (S) Expression or initial value
  must be evaluated at compile time.
  ** sub   === End of Compilation 2 ===
  1501-511  Compilation failed for file test1.f.
  
  When line 9 is changed to:
  
        character (len=len(string1)+3) :: string3
  
  Eliminating the compile time expression evaluation for
  len(string2), then the program compiles successfully.
  
  ===== TESTCASE:
  $cat test1.f
        program test
        character (len=10) :: string1
        call sub(string1)
        end program
  
        subroutine sub(string1)
        character (*),intent(in) :: string1
        character (len=3) :: string2
        character (len=len(string1)+len(string2)) :: string3
        end
  

Local fix

• Eliminate the compile time expression evaluation for
  len(string2), substitute with constant value.
  

Problem summary

• PROBLEM DESCRIPTION: When using an auto variable as dummy of an
  intrinsic inquiry function as part of the expression that
  contains another dummy argument, the compiler incorrectly flag
  an error asking for compile time constant.
  
  USERS AFFECTED: Uses who use an auto variable as dummy of an
  intrinsic inquiry function as part of the expression that
  contains another dummy argument in their specification
  expression.
  

Problem conclusion

• The problem is fixed.
  

Temporary fix

Comments

APAR Information

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

  IV49961

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

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5799AH100

Applicable component levels

• RE10 PSN IV49961

     UP06/09/13