1INTEGER :: I = 1 2SELECT CASE (I) 3 CASE (-3:-5) ! Can never be matched 4 STOP 1 5 CASE (1) 6 CONTINUE 7 CASE DEFAULT 8 STOP 2 9END SELECT 10 11I = -3 12SELECT CASE (I) 13 CASE (-3:-5) ! Can never be matched 14 STOP 3 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 STOP 4 25 CASE (-5) 26 CONTINUE 27 CASE DEFAULT 28 STOP 5 29END SELECT 30END 31 32