IV31634: -QINTSIZE=2 OR 8 CAUSES INCORRECT COMPILER ERROR

November 2012 PTF for XL Fortran for AIX, V14.1
March 2013 PTF for XL Fortran for AIX, V14.1

APAR status

• Closed as program error.

Error description

• Specifying get_command, get_command_argument, or
  get_environment_variable in the INTRINSIC
  statement and compiling with -qintsize=2 or -qintsize=8 causes
  an erroneous compiler error message.
  
  
  For example, consider the following testcase:
  
  $cat test.f90
  integer num, len, status
  character*15 value
  intrinsic :: get_environment_variable
  call GET_ENVIRONMENT_VARIABLE('HOME', value, len, status,
  .true.)
  print*, value
  print*, len
  print*, status
  stop
  end
  
  
  Compiling with -qintsize=2 or 8 causes the invalid compiler
  error:
  
  
  $f90 test.f90 -qintsize=2
  "test.f90", line 4.6: 1513-062 (S) Generic procedure reference
  can not be resolved due to incorrect actual argument attributes.
  ** _main   === End of Compilation 1 ===
  1501-511  Compilation failed for file test.f90.
  
  $f90 test.f90 -qintsize=8
  "test.f90", line 4.6: 1513-062 (S) Generic procedure reference
  can not be resolved due to incorrect actual argument attributes.
  ** _main   === End of Compilation 1 ===
  1501-511  Compilation failed for file test.f90.
  

Local fix

• Remove the INTRINSIC statement
  

Problem summary

• USERS AFFECTED:
  XL Fortran users who use the commands described in the problem
  description are potentialy affected by this issue.
  
  PROBLEM DESCRIPTION:
  Specifying get_command, get_command_argument, or
  get_environment_variable in the INTRINSIC statement and
  compiling with -qintsize=2 or -qintsize=8 causes an erroneous
  compiler error message.
  

Problem conclusion

• The issue has been fixed.  If the argument list does not
  conform to the interface of a generic intrinsic, the fix is to
  check whether the argument list conforms to the
  intsize/realsize/autodbl version (if intsize/realsize/autodbl
  is on).
  

Temporary fix

Comments

APAR Information

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

  LI77050

• 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

• RE10 PSY U856076

     UP C