gcc/testsuite/gfortran.dg/select_char_1.f90

   1 integer function char_select (s)
   2   character(len=*), intent(in) :: s
   3
   4   select case(s)
   5     case ("foo")
   6       char_select = 1
   7     case ("bar", "gee")
   8       char_select = 2
   9     case ("111", "999")
  10       char_select = 3
  11     case ("1024", "1900")
  12       char_select = 4
  13     case ("12", "17890")
  14       char_select = 5
  15     case default
  16       char_select = -1
  17   end select
  18 end function char_select
  19
  20 integer function char_select2 (s)
  21   character(len=*), intent(in) :: s
  22
  23   char_select2 = -1
  24   select case(s)
  25     case ("foo")
  26       char_select2 = 1
  27     case ("bar", "gee")
  28       char_select2 = 2
  29     case ("111", "999")
  30       char_select2 = 3
  31     case ("1024", "1900")
  32       char_select2 = 4
  33     case ("12", "17890")
  34       char_select2 = 5
  35   end select
  36 end function char_select2
  37
  38
  39 program test
  40   interface
  41     integer function char_select (s)
  42       character(len=*), intent(in) :: s
  43     end function char_select
  44     integer function char_select2 (s)
  45       character(len=*), intent(in) :: s
  46     end function char_select2
  47   end interface
  48
  49   if (char_select("foo") /= 1) call abort
  50   if (char_select("foo ") /= 1) call abort
  51   if (char_select("foo2 ") /= -1) call abort
  52   if (char_select("bar") /= 2) call abort
  53   if (char_select("gee") /= 2) call abort
  54   if (char_select("000") /= -1) call abort
  55   if (char_select("101") /= -1) call abort
  56   if (char_select("109") /= -1) call abort
  57   if (char_select("111") /= 3) call abort
  58   if (char_select("254") /= -1) call abort
  59   if (char_select("999") /= 3) call abort
  60   if (char_select("9989") /= -1) call abort
  61   if (char_select("1882") /= -1) call abort
  62
  63   if (char_select2("foo") /= 1) call abort
  64   if (char_select2("foo ") /= 1) call abort
  65   if (char_select2("foo2 ") /= -1) call abort
  66   if (char_select2("bar") /= 2) call abort
  67   if (char_select2("gee") /= 2) call abort
  68   if (char_select2("000") /= -1) call abort
  69   if (char_select2("101") /= -1) call abort
  70   if (char_select2("109") /= -1) call abort
  71   if (char_select2("111") /= 3) call abort
  72   if (char_select2("254") /= -1) call abort
  73   if (char_select2("999") /= 3) call abort
  74   if (char_select2("9989") /= -1) call abort
  75   if (char_select2("1882") /= -1) call abort
  76 end program test