1! { dg-do compile }
2! PR33162 INTRINSIC functions as ACTUAL argument
3! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
4module m
5implicit none
6contains
7  subroutine sub(a)
8    interface
9      function a(x)
10        real :: a, x
11        intent(in) :: x
12      end function a
13    end interface
14    print *, a(4.0)
15  end subroutine sub
16end module m
17
18use m
19implicit none
20EXTERNAL foo  ! implicit interface is undefined
21call sub(foo) ! { dg-error "is not a function" }
22end
23