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