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_2.f90
blob
2133744b6dc7dd7c7bf332f2258f5bbee5679bdd
1
! { dg-do run }
2
! Simple test program to see if gfortran eliminates the 'case (3:2)'
3
! statement. This is an unreachable CASE because the range is empty.
4
!
5
program
select_3
6
integer
i
7
do
i
=
1
,
4
8
select
case
(
i
)
9
case
(
1
)
10
if
(
i
/=
1
)
STOP
1
11
case
(
3
:
2
)
12
STOP
2
13
case
(
4
)
14
if
(
i
/=
4
)
STOP
3
15
case default
16
if
(
i
/=
2
.
and
.
i
/=
3
)
STOP
4
17
end
select
18
end do
19
end program
select_3