Sign in
chromium
/
native_client
/
nacl-toolchain
/
gcc-4.4.3
/
.
/
gcc
/
gcc
/
testsuite
/
gfortran.dg
/
kind_tests_2.f03
blob: 2a0d7c985d8dd236f309a72b14434376a8320ba8 [
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
!
{
dg
-
final
{
cleanup
-
modules
"kind_tests_2"
}
}