Sign in
gnu
/
gcc
/
cd2fd5facb5e1882d3f338ed456ae9536f7c0593
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
kind_tests_2.f03
blob: d740657a262fee2c761bee16f29cbc8db0b03a90 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
module
kind_tests_2
use
,
intrinsic
::
iso_c_binding
integer
,
parameter
::
myFKind
=
c_float
real
(
myFKind
),
bind
(
c
)
::
myF
end
module
kind_tests_2