! { dg-do compile } | |
subroutine sub1(x) | |
integer, intent(in) :: x | |
entry sub1_c(x) bind(c) | |
end subroutine sub1 | |
subroutine sub2_c(x) bind(c) | |
integer, intent(in) :: x | |
entry sub2(x) | |
end subroutine sub2_c | |
subroutine sub3_c(x) bind(c) | |
integer, intent(in) :: x | |
entry sub3_c_c(x) bind(c) | |
end subroutine sub3_c |