Sign in
gnu
/
gcc
/
4e4e45a4fd341174d8231ee6a99e6fe308904f8f
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
binding_label_tests_11.f03
blob: c1fc98effb60e318350ec4a852b79f608df23e32 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
module
binding_label_tests_11
use
iso_c_binding
,
only
:
c_int
implicit
none
contains
function
one
()
bind
(
c
,
name
=
"c_one"
)
integer
(
c_int
)
one
one
=
1
end
function
one
end
module
binding_label_tests_11