Sign in
gnu
/
gcc
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
selected_logical_kind_2.f90
blob: 6f18958eb371a9ccc31267558ed2ff6415f3b4c7 [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-std=f2018"
}
program selected
implicit
none
logical
(
selected_logical_kind
(
1
))
::
l
!
{
dg
-
error
"has no IMPLICIT type"
}
print
*,
selected_logical_kind
(
1
)
!
{
dg
-
error
"has no IMPLICIT type"
}
end
program