gcc/testsuite/gfortran.dg/pr95709.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-std=legacy" }
   3 ! PR fortran/95709 - ICE in gfc_resolve_code, at fortran/resolve.c:11807
   4
   5 program p
   6   integer, parameter :: i(1) = 1
   7   integer, parameter :: j    = 1
   8   integer            :: k(1) = 1
   9   goto i(1)        ! { dg-error "requires a scalar INTEGER variable" }
  10   goto j           ! { dg-error "requires a scalar INTEGER variable" }
  11   goto k(1)        ! { dg-error "requires a scalar INTEGER variable" }
  12   goto i%kind, (1) ! { dg-error "requires a scalar INTEGER variable" }
  13 1 continue
  14 end