blob: e58760675249172b8b33f3bc925020b6ce69d107 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
! { 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
|
