3 ! PR 41733: Proc-pointer conformance checks: Elemental-proc-ptr => non-elemental-procedure
5 ! Contributed by James Van Buskirk
8 procedure(my_dcos
), pointer :: f
9 f
=> my_dcos
! { dg-error "invalid in procedure pointer assignment" }
11 real elemental
function my_dcos(x
)