gcc/testsuite/gfortran.dg/select_char_3.f90

   1 ! PR fortran/40206
   2 ! { dg-do compile }
   3 ! { dg-options "-O2 -Wuninitialized" }
   4
   5 function char2type (char)
   6   character, intent(in) :: char
   7   integer :: char2type
   8
   9   select case (char)
  10     case ('E','e')
  11       char2type=1
  12     case default
  13       char2type=-1234
  14   end select
  15 end function