1! { dg-do run }
2! { dg-additional-sources bind_c_usage_33_c.c }
3module m1
4   implicit none
5   contains
6   subroutine odopen(unit)
7      integer,intent(out) :: unit
8      unit=8
9   end subroutine
10end module
11
12module m2
13   use iso_c_binding
14   use m1
15   implicit none
16   contains
17   subroutine c_odopen(unit) bind(c,name="odopen")
18      integer(c_int),intent(out) :: unit
19      call odopen(unit)
20   end subroutine
21end module
22