LI73920: INVALID INTRINSIC PROCEDURE MESSAGE AT COMPILE TIME

April 2009 Update for XL Fortran Advanced Edition for Blue Gene/L, V11.1
September 2010 Update for XL Fortran Advanced Edition for Blue Gene/L, V11.1

APAR status

• Closed as program error.

Error description

• An invalid intrinsic procedure message is being produced at
  compile time for the following test case:
  
  Compile Line:
  f2003 -qlanglvl=2003std cloc.f90 -o cloc
  
  ======Start of cloc.f90=========
  module m
    type t
      real x
    contains
      procedure :: aff
    end type t
  contains
    subroutine aff( this )
      class(t), intent(in) :: this
      print *, this%x
    end subroutine aff
  end module m
  program p
    use m
    use ISO_C_BINDING
    type(t), target :: obj
    type(C_PTR)     :: ptrC
    ptrC = C_LOC(obj)
  end program p
  =========End of cloc.f90==============
  
  Invalid message:
  $f2003 -qlanglvl=2003std cloc.f90 -o cloc
  ** m   === End of Compilation 1 ===
  "cloc.f90", line 23.10: 1518-256 (L) The intrinsic procedure
  c_loc (with these arguments) is not permitted by the Fortran
  2003 standard.
  ** p   === End of Compilation 2 ===
  1501-510  Compilation successful for file cloc.f90.
  

Local fix

• n/a
  

Problem summary

• Users of XL Fortran that enable 2003std
  langlvl checking and use the procedures of the
  ISO_C_BINDING intrinsic module are affected by this issue.
  
  The compiler flags the procedures from the
  ISO_C_BINDING module as IBM extensions.
  

Problem conclusion

• The compiler now recognizes that these
  procedures comply with the Fortran 2003 standard.
  

Temporary fix

Comments

APAR Information

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

  IZ32207

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

Fix information

• Fixed component name

  XL FORTRAN AE B

• Fixed component ID

  5799HJG00

Applicable component levels

• RB10 PSN IZ32207

     UP06/09/13