1! { dg-do compile }
2! { dg-options "-std=legacy" }
3! PR fortran/95709 - ICE in gfc_resolve_code, at fortran/resolve.c:11807
4
5program 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" }
131 continue
14end
15