gcc/testsuite/gfortran.dg/pr61765.f90


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