! { dg-do compile } | |
! { dg-options "std=gnu" } | |
! PR fortran/103286 - ICE in resolve_select | |
program p | |
select case (.true.) ! { dg-warning "Extension: Conversion" } | |
case (1_8) | |
case (:0) ! { dg-error "Logical range in CASE statement" } | |
case (2:) ! { dg-error "Logical range in CASE statement" } | |
end select | |
end |