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()
10        real :: a
11      end function a
12    end interface
13    print *, a()
14  end subroutine sub
15end module m
16use m
17implicit none
18intrinsic cos
19call sub(cos) ! { dg-error "wrong number of arguments" }
20end
21