! { dg-do compile } | |
! PR33162 INTRINSIC functions as ACTUAL argument | |
! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org> | |
module m | |
implicit none | |
contains | |
subroutine sub(a) | |
interface | |
function a() | |
real :: a | |
end function a | |
end interface | |
print *, a() | |
end subroutine sub | |
end module m | |
use m | |
implicit none | |
intrinsic cos | |
call sub(cos) ! { dg-error "wrong number of arguments" } | |
end |