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