1! { dg-do compile } 2! PR fortran/68151 3! Original code contribute by Gerhard Steinmetz 4! <gerhard dot steinmetz dot fortran at t-online dot de> 5! 6program p 7 integer :: k = 1 8 select case (k) 9 case (:huge(1._4)) ! { dg-error "Expression in CASE" } 10 case (:huge(2._8)) ! { dg-error "Expression in CASE" } 11 case ((1.0,2.0)) ! { dg-error "Expression in CASE" } 12 end select 13end 14