1! { dg-do run }
2! Program to test ASSIGNing a label to common variable. PR18827.
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