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
Dead
[official-gcc.git]
/
gomp-20050608-branch
/
gcc
/
testsuite
/
gfortran.fortran-torture
/
execute
/
integer_select_1.f90
blob
18bc79b4358179acc997719edbe52a75b79bcdba
1
INTEGER
::
I
=
1
2
SELECT
CASE
(
I
)
3
CASE
(-
3
:-
5
)
! Can never be matched
4
CALL
abort
5
CASE
(
1
)
6
CONTINUE
7
CASE DEFAULT
8
CALL
abort
9
END
SELECT
10
11
I
= -
3
12
SELECT
CASE
(
I
)
13
CASE
(-
3
:-
5
)
! Can never be matched
14
CALL
abort
15
CASE
(
1
)
16
CONTINUE
17
CASE DEFAULT
18
CONTINUE
19
END
SELECT
20
21
I
= -
5
22
SELECT
CASE
(
I
)
23
CASE
(-
3
:-
5
)
! Can never be matched
24
CALL
abort
25
CASE
(-
5
)
26
CONTINUE
27
CASE DEFAULT
28
CALL
abort
29
END
SELECT
30
END
31