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     case (1_4)         ! kind = 4, reachable
   8       if (i /=  1_4) call abort
   9     case (2_8)         ! kind = 8, reachable
  10       if (i /= 2_8) call abort
  11     case (200)         ! kind = 4, unreachable because of range of i
  12       call abort
  13     case default
  14       if (i /= 3) call abort
  15     end select
  16   end do
  17 end program select_5