Sign in
gnu
/
gcc
/
4aef14b09557ce072f1269bd8a05fa2b1df0eda2
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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