gcc/testsuite/gfortran.dg/pr68151.f90

   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 !
   6 program 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
  13 end