2 ! PR33162 INTRINSIC functions as ACTUAL argument
3 ! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
21 EXTERNAL foo ! interface is undefined
22 procedure(cos) :: foo ! { dg-error "Duplicate EXTERNAL attribute specified" }
23 call sub(foo) ! { dg-error "is not a function" }
25 ! { dg-final { cleanup-modules "m" } }