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