12 lines
223 B
Fortran
12 lines
223 B
Fortran
|
! { dg-do run }
|
||
|
! Option passed to avoid excess errors from obsolete warning
|
||
|
! { dg-options "-w" }
|
||
|
! PR18827
|
||
|
integer i,j
|
||
|
common /foo/ i,j
|
||
|
assign 1000 to j
|
||
|
j = 5
|
||
|
goto j
|
||
|
1000 continue
|
||
|
end
|