! { 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