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