c: Fix up pointer types to may_alias structures [PR114493]

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

! { dg-do compile }
! PR fortran/103591 - ICE in gfc_compare_string
! Contributed by G.Steinmetz

program p
  integer :: n
  select case (n)
  case ('1':2.)   ! { dg-error "cannot be REAL" }
  end select
end