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