2 elemental
subroutine sub2(x
)
3 integer, intent(in
) :: x
4 entry sub2_c(x
) bind(c
) ! { dg-error "prohibited in an elemental" }
7 elemental
function func2(x
)
8 integer, intent(in
) :: x
9 entry func2_c(x
) bind(c
) ! { dg-error "prohibited in an elemental" }