16 lines
350 B
Fortran
16 lines
350 B
Fortran
! { 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
|