2 ! Checks the fix for the bug exposed in fixing PR25147
4 ! Contributed by Tobias Schlueter <tobi@gcc.gnu.org>
8 function integrate(f,xmin,xmax)
16 real(8) :: xmin, xmax, integrate
17 end function integrate
26 real(8) :: f ! This was not trapped: PR25147/25098
27 print *,integrate (f,0d0,3d0) ! { dg-error "Expected a procedure" }
30 real(8), external :: g ! This would give an error, incorrectly.
31 print *,integrate (g,0d0,3d0)