blob: 830d9f4f437d1840cb57995f6a0cb08d65cb4315 [file] [log] [blame]
! { dg-do compile }
! PR fortran/68151
! Original code contribute by Gerhard Steinmetz
! <gerhard dot steinmetz dot fortran at t-online dot de>
!
program p
integer :: k = 1
select case (k)
case (:huge(1._4)) ! { dg-error "Expression in CASE" }
case (:huge(2._8)) ! { dg-error "Expression in CASE" }
case ((1.0,2.0)) ! { dg-error "Expression in CASE" }
end select
end