! { dg-do compile } | |
! { dg-options "-std=legacy" } | |
! PR fortran/95709 - ICE in gfc_resolve_code, at fortran/resolve.c:11807 | |
program p | |
integer, parameter :: i(1) = 1 | |
integer, parameter :: j = 1 | |
integer :: k(1) = 1 | |
goto i(1) ! { dg-error "requires a scalar INTEGER variable" } | |
goto j ! { dg-error "requires a scalar INTEGER variable" } | |
goto k(1) ! { dg-error "requires a scalar INTEGER variable" } | |
goto i%kind, (1) ! { dg-error "requires a scalar INTEGER variable" } | |
1 continue | |
end |