blob: 516a3d7632ab91c7adcb6cac7fa7f9a0973b432d (
plain)
1
2
3
4
5
6
7
8
|
! { 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 "Obsolete: ASSIGN statement" }
2000 continue
end
|