IZ92366: INVALID PROCEDURE ARGUMENT ERROR

March 2011 PTF for XL Fortran for AIX, V13.1
April 2011 Update for XL Fortran for Linux, V13.1
August 2011 PTF for XL Fortran for AIX, V13.1
January 2012 PTF for XL Fortran for AIX, V13.1
April 2012 PTF for XL Fortran for AIX, V13.1
June 2012 Update for XL Fortran for Linux, V13.1
July 2012 PTF for XL Fortran for AIX, V13.1
October 2012 Update for XL Fortran for Linux, V13.1
October 2012 PTF for XL Fortran for AIX, V13.1
February 2013 PTF for XL Fortran for AIX, V13.1
May 2013 PTF for XL Fortran for AIX, V13.1
XL Fortran for Linux Fix Pack 8 (June 2013 Update) for 13.1
XL Fortran for AIX Fix Pack 15 (August 2013 PTF) for 13.1
XL Fortran for AIX Fix Pack 16 (November 2013 PTF) for 13.1
XL Fortran for AIX Fix Pack 17 (February 2014 PTF) for 13.1
XL Fortran for AIX Fix Pack 21 (April 2015 PTF) for 13.1
XL Fortran for AIX Fix Pack 22 (September 2015 PTF) for 13.1
XL Fortran for AIX Fix Pack 23 (March 2016 PTF) for 13.1
XL Fortran for AIX Fix Pack 24 (September 2016 PTF) for 13.1

APAR status

• Closed as program error.

Error description

• When passing the return result of a function to a subroutine as
  a parameter, the compiler is outputting an invalid error
  message:
  
  
  "test.F90", line 13.12: 1513-082 (S) Internal procedures may
  not be passed as actual arguments.
  
  
       ===== TEST CASE =====
  
  SUBROUTINE sub(array)
  
    LOGICAL,DIMENSION (*),INTENT(in) :: array
  
    PRINT *, array(1:9)
  END SUBROUTINE sub
  
  PROGRAM test
    IMPLICIT NONE
    LOGICAL :: array(25)
  
    array = .FALSE.
  
    CALL sub(func(array, &
         RESHAPE ((/1,1,5,5/), (/2,2/)), &
         RESHAPE ((/2,2,4,4/), (/2,2/))))
  
  CONTAINS
  
    FUNCTION func (src, foo, bar)
  
      INTEGER, INTENT (in) :: foo (2, 2), &
           bar (2, 2)
      LOGICAL, INTENT (in) :: src(foo(1,1):foo(2,1), &
           foo(1,2):foo(2,2))
  
      LOGICAL :: func (bar(1,1):bar(2,1), &
           bar(1,2):bar(2,2))
  
      func = src(bar(1,1):bar(2,1), &
           bar(1,2):bar(2,2))
  
    END FUNCTION func
  
  END PROGRAM test
  

Local fix

• Define an INTERFACE for the subroutine.
  

Problem summary

• PROBLEM DESCRIPTION:
  The compiler flags an error when calling an external procedure
  with an implicit interface, with the result from an internal
  function call as its argument.
  
  USERS AFFECTED:
  Users who use this form of a call: call
  implicit_interface_sub(internal_func(...))
  

Problem conclusion

• When checking semantics, the compiler was checking if an
  argument was an internal function, however it did not look
  further into whether the argument is a function call or not.  A
  fix was added to check for an expression result.
  

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:

  LI76091

Fix information

• Fixed component name

  XL FORTRAN FOR

• Fixed component ID

  5724X1500

Applicable component levels