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