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
16
17end module m
18
19use m
20implicit none
21EXTERNAL foo  ! interface is undefined
22procedure(cos) :: foo ! { dg-error "Duplicate EXTERNAL attribute specified" }
23call sub(foo)         ! { dg-error "is not a function" }
24end
25