repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
select_3.f90
blob
90792a2f4337cf5274aea32d4366c2f82678b860
1
! { dg-do run }
2
! Short test program with a CASE statement that uses a range.
3
!
4
program
select_4
5
integer
i
6
do
i
=
1
,
34
,
4
7
select
case
(
i
)
8
case
(:
5
)
9
if
(
i
/=
1
.
and
.
i
/=
5
)
STOP
1
10
case
(
13
:
21
)
11
if
(
i
/=
13
.
and
.
i
/=
17
.
and
.
i
/=
21
)
STOP
2
12
case
(
29
:)
13
if
(
i
/=
29
.
and
.
i
/=
33
)
STOP
3
14
case default
15
if
(
i
/=
9
.
and
.
i
/=
25
)
STOP
4
16
end
select
17
end do
18
end program
select_4