blob: a4d78406006409761bcb299832e5484499ff843b (
plain)
1
2
3
4
5
6
7
8
9
10
|
! { dg-do compile }
elemental subroutine sub2(x)
integer, intent(in) :: x
entry sub2_c(x) bind(c) ! { dg-error "prohibited in an elemental" }
end subroutine sub2
elemental function func2(x)
integer, intent(in) :: x
entry func2_c(x) bind(c) ! { dg-error "prohibited in an elemental" }
end function func2
|