gcc/testsuite/gfortran.dg/assign_6.f

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