[Bug fortran/25147] New: passing variable in place of function dummy argument not caught

[tobi at gcc dot gnu dot org]

[EMAIL PROTECTED]:~/src/work> cat testint.f90
module integrator

  interface
     function integrate(f,xmin,xmax)
       implicit none
       interface
          function f(x)
            real*8 :: f,x
            intent(in) :: x
          end function f
       end interface
       real*8 :: xmin, xmax, integrate
     end function integrate
  end interface
end module integrator

use integrator

real*8 :: f
print *,integrate (f,0d0,3d0)
end
[EMAIL PROTECTED]:~/src/work> ~/src/gcc/build/gcc/f951 testint.f90 -quiet
[EMAIL PROTECTED]:~/src/work> pgf90 testint.f90
PGF90-S-0447-Argument number 1 to integrate must be a subroutine or function
nam
e (testint.f90: 20)
  0 inform,   0 warnings,   1 severes, 0 fatal for MAIN
[EMAIL PROTECTED]:~/src/work> 

I'd expect an error message similar to pgf90's.


-- 
           Summary: passing variable in place of function dummy argument not
                    caught
           Product: gcc
           Version: 4.2.0
            Status: UNCONFIRMED
          Keywords: accepts-invalid
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: tobi at gcc dot gnu dot org


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