gcc/testsuite/gfortran.dg/widechar_select_2.f90

   1 ! { dg-do compile }
   2
   3   character(kind=1,len=20) :: s1
   4   character(kind=4,len=20) :: s4
   5
   6   select case (s1)
   7     case ("":4_"foo") ! { dg-error "must be of kind" }
   8       test = 1
   9     case (4_"gee") ! { dg-error "must be of kind" }
  10       test = 1
  11     case ("bar")
  12       test = 1
  13     case default
  14       test = 4
  15   end select
  16
  17   select case (s4)
  18     case ("":4_"foo") ! { dg-error "must be of kind" }
  19       test = 1
  20     case (4_"gee")
  21       test = 1
  22     case ("bar") ! { dg-error "must be of kind" }
  23       test = 1
  24     case default
  25       test = 4
  26   end select
  27
  28   select case (s4)
  29     case (4_"foo":4_"bar")
  30       test = 1
  31     case (4_"foo":4_"gee") ! { dg-error "overlaps with CASE label" }
  32       test = 1
  33     case (4_"foo") ! { dg-error "overlaps with CASE label" }
  34       test = 1
  35   end select
  36
  37 end