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
* cfgloopmanip.c (duplicate_loop_to_header_edge): Cleanup profile
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
pr62135.f90
blob
d5e674b2b814e8e500602ac333e4b16c8011404c
1
! { dg-do compile }
2
! { dg-options -Wsurprising }
3
4
PROGRAM
PR62135
5
IMPLICIT NONE
6
CHARACTER
*
1
::
choice
7
choice
=
'x'
8
SELECT
CASE
(
choice
)
9
! This triggered an ICE: an unreachable case clause
10
! as the last of a list.
11
CASE
(
'2'
:
'7'
,
'9'
:
'0'
)
! { dg-warning "can never be matched" }
12
WRITE
(*,*)
"barf"
13
CASE DEFAULT
14
CONTINUE
15
END
SELECT
16
END PROGRAM
PR62135
17