IV75548: ASSOCIATED INTRINSIC USED IN SPECIFICATION EXPRESSION CAUSING ERROR

XL Fortran for AIX Fix Pack 4 (July 2015 PTF) for 15.1
XL Fortran for AIX Fix Pack 6 (February 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 7 (May 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 8 (August 2016 Update) for 15.1
XL Fortran for AIX Fix Pack 9 (June 2017 Update) for 15.1
XL Fortran for AIX Fix Pack 10 (February 2018 PTF) for 15.1
XL Fortran for AIX Fix Pack 5 (November 2015 Update) for 15.1

APAR status

• Closed as program error.

Error description

• A variable using the 'associated' intrinsic function in it's
  specification expression is encountering an invalid compile time
  error.
  
  
     === TEST CASE ===
  
  module mymod
  contains
  
    pure function func1(b) result(n)
      logical, intent(in) :: b
      integer :: n
      n = 1
    end function func1
  
    subroutine func2(i)
     integer, pointer :: i
     character(len= func1( associated(i) ) ) :: c
    end subroutine func2
  
  end module mymod
  
  
  > xlf2008 apar.F
  "apar.F", line 12.26: 1514-746 (S) Intrinsic procedure
  associated must not appear in a specification expression.
  ** mymod   === End of Compilation 1 ===
  1501-511  Compilation failed for file apar.F.
  >
  

Local fix

• Do not use the 'associated' intrinsic in a specification
  expression.
  

Problem summary

• PROBLEM DESCRIPTION:
  Intrinsics such as allocated and associated must be allowed in
  specification expressions for Fortran 95 and above.
  
  
  USERS AFFECTED:
  Users of allocated and associated in specification expressions.
  

Problem conclusion

• The problem has been fixed and the intrinsics may now be used in
   specification expressions.
  

Temporary fix

Comments

APAR Information

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

  LI78624

• 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