gcc/testsuite/gfortran.dg/select_5.f90

   1 ! { dg-do run }
   2 ! Test mismatched type kinds in a select statement.
   3 program select_5
   4   integer(kind=1) i          ! kind = 1, -128 <= i < 127
   5   do i = 1, 3
   6     select case (i)
   7
   8     ! kind = 4, reachable
   9     case (1_4)
  10       if (i /=  1_4) call abort
  11
  12     ! kind = 8, reachable
  13     case (2_8)
  14       if (i /= 2_8) call abort
  15
  16     ! kind = 4, unreachable because of range of i
  17     case (200)                       ! { dg-warning "not in the range" }
  18       call abort
  19
  20     case default
  21       if (i /= 3) call abort
  22     end select
  23   end do
  24 end program select_5