Sign in
gnu
/
gcc
/
0b6b70a0733672600644c8df96942cda5bf86d3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
selected_real_kind_3.f90
blob: d24d877acfe1cc7c90d5d2678a7fe503e6068367 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f2003"
}
!
print
*,
selected_real_kind
(
p
=
precision
(
0.0
),
radix
=
2
)
!
{
dg
-
error
"Fortran 2008"
}
print
*,
selected_real_kind
()
!
{
dg
-
error
"neither 'P' nor 'R' argument"
}
end