coarray_41.f90: Add "-latomic" option if libatomic_available.

[official-gcc.git] / gcc / testsuite / gfortran.dg / select_char_3.f90

! 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