gcc/testsuite/gfortran.dg/select_10.f90

   1 ! { dg-do compile }
   2 ! PR fortran/103776 - ICE in gfc_compare_string
   3 ! Contributed by G.Steinmetz
   4
   5 program p
   6   integer :: n
   7   select case (n)
   8   case ([1])        ! { dg-error "must be scalar" }
   9   end select
  10   select case (n)
  11   case (:[2])       ! { dg-error "must be scalar" }
  12   end select
  13   select case (n)
  14   case (['1'])      ! { dg-error "must be scalar" }
  15   end select
  16   select case (n)
  17   case (['1']:2)    ! { dg-error "must be scalar" }
  18   end select
  19   select case (n)
  20   case(['1']:['2']) ! { dg-error "must be scalar" }
  21   end select
  22   select case (n)
  23   case(1:['2'])     ! { dg-error "must be scalar" }
  24   end select
  25 end