1! PR fortran/40206
2! { dg-do compile }
3! { dg-options "-O2 -Wuninitialized" }
4
5function 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
15end function
16