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