Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
select_6.f90
blob: 0e0f05244237f2e47fde356b82ee31e241551c0d [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
27457
!
This
lead to a segfault previously
.
implicit
none
integer
(
kind
=
1
)
::
i
real
::
r
(
3
)
select
case
(
i
)
case
(
129
)
r
(
4
)
=
0
!
{
dg
-
error
"Syntax error in CASE specification"
}
end
select
end