blob: 080d1ac389bbf8e720441d49902ad715d6cecff4 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! { 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
|