1INTEGER         :: I = 1
2SELECT CASE (I)
3   CASE (-3:-5)  ! Can never be matched
4      CALL abort
5   CASE (1)
6      CONTINUE
7   CASE DEFAULT
8      CALL abort
9END SELECT
10
11I = -3
12SELECT CASE (I)
13   CASE (-3:-5) ! Can never be matched
14      CALL abort
15   CASE (1)
16      CONTINUE
17   CASE DEFAULT
18      CONTINUE
19END SELECT
20
21I = -5
22SELECT CASE (I)
23   CASE (-3:-5) ! Can never be matched
24      CALL abort
25   CASE (-5)
26      CONTINUE
27   CASE DEFAULT
28      CALL abort
29END SELECT
30END
31
32