! PR fortran/40206 | |
! { dg-do compile } | |
! { dg-options "-O2 -Wuninitialized" } | |
function char2type (char) | |
character, intent(in) :: char | |
integer :: char2type | |
select case (char) | |
case ('E','e') | |
char2type=1 | |
case default | |
char2type=-1234 | |
end select | |
end function |