gcc/testsuite/gfortran.dg/pr103286.f90


1
2
3
4
5
6
7
8
9
10
11

! { 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