IV75158: ASSOCIATED INTRINSIC USED IN SPECIFICATION EXPRESSION CAUSING ERROR

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 14 (December 2015 Update) for 14.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