blob: bd441211242aeae051d150d76bcf3587a3a2f257 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-fcompare-debug -O2" }
program test
integer i
common i
assign 2000 to i ! { dg-warning "Deleted feature: ASSIGN statement" }
2000 continue
end