Sign in
gnu
/
gcc
/
1f16a020acbea0af26209478990b83b1a1ba3a2b
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
select_9.f90
blob: c580e8162bdec15bf2604545ac6289bfacbdf97f [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
103591
-
ICE
in
gfc_compare_string
!
Contributed
by
G
.
Steinmetz
program p
integer
::
n
select
case
(
n
)
case
(
'1'
:
2.
)
!
{
dg
-
error
"cannot be REAL"
}
end
select
end