1! { dg-do compile }
2! { dg-options "-fcompare-debug -O2" }
3      program test
4      integer i
5      common i
6      assign 2000 to i  ! { dg-warning "Deleted feature: ASSIGN statement" }
72000  continue
8      end
9