gcc/testsuite/gfortran.dg/assign_6.f


1
2
3
4
5
6
7
8
9
10

C { dg-do run }
C Option passed to avoid excess errors from obsolete warning
C { dg-options "-w" }
C PR22290

      integer nz
      assign 93 to nz
      go to nz,(93)
  93  continue
      end