[Bug fortran/33234] New: -stf=f* and passing intrinsic function as actual argument without INTRINSIC

burnus at gcc dot gnu dot org gcc-bugzilla@gcc.gnu.org
Wed Aug 29 16:10:00 GMT 2007


The following is invalid Fortran 95/2003:
      call sub (len, "abcdef")
unless one has used before "intrinsic len".

gfortran happily accepts this, "ifort -stand f03" diagnoses:

fortcom: Warning: intrinsic_actual_4.f90, line 17: Allowing an intrinsic
procedure name to appear as an actual argument when the intrinsic procedure is
not explicitly declared as INTRINSIC is not standard F2003.   [LEN]

As does NAG f95:
Actual INTRINSIC procedure argument LEN not declared INTRINSIC

Longer excerpt from gfortran.dg/intrinsic_actual_4.f90:

      implicit none
      integer i
      i = len ("123")
      call sub (len, "abcdef")

where sub takes as argument an integer function with implicit interface.


-- 
           Summary: -stf=f* and passing intrinsic function as actual
                    argument without INTRINSIC
           Product: gcc
           Version: 4.3.0
            Status: UNCONFIRMED
          Keywords: diagnostic
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33234



More information about the Gcc-bugs mailing list