1C { dg-do run } 2C Option passed to avoid excess errors from obsolete warning 3C { dg-options "-w" } 4C PR22290 5 6 integer nz 7 assign 93 to nz 8 go to nz,(93) 9 93 continue 10 end 11