aarch64: Add missing ACLE macro for NEON-SVE Bridge
[official-gcc.git] / gcc / testsuite / gfortran.dg / bind_c_usage_33.f90
blob62571e4731ea210c0f0324b477a12d53e8b22f67
1 ! { dg-do run }
2 ! { dg-additional-sources bind_c_usage_33_c.c }
3 module m1
4 implicit none
5 contains
6 subroutine odopen(unit)
7 integer,intent(out) :: unit
8 unit=8
9 end subroutine
10 end module
12 module 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
21 end module