1! { dg-do run } 2! Option passed to avoid excess errors from obsolete warning 3! { dg-options "-w" } 4! PR18827 5 integer i,j 6 common /foo/ i,j 7 assign 1000 to j 8 j = 5 9 goto j 10 1000 continue 11 end 12