2 ! PR33162 INTRINSIC functions as ACTUAL argument
3 ! Test case adapted from PR by Jerry DeLisle <jvdelisle@gcc.gnu.org>
7 double precision function my1(x)
8 double precision, intent(in) :: x
12 real(kind=4) function my2(x)
17 real function my3(x, y)
18 real, intent(in) :: x, y
26 procedure(dcos):: my1 ! { dg-error "Cannot change attributes" }
27 procedure(cos) :: my2 ! { dg-error "Cannot change attributes" }
28 procedure(dprod) :: my3 ! { dg-error "Cannot change attributes" }