9 lines
233 B
Fortran
9 lines
233 B
Fortran
|
! { dg-do run }
|
||
|
! Program to test ASSIGNing a label to common variable. PR18827.
|
||
|
program test
|
||
|
integer i
|
||
|
common i
|
||
|
assign 2000 to i ! { dg-warning "Deleted feature: ASSIGN statement" }
|
||
|
2000 continue
|
||
|
end
|