summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/assign_6.f
blob: 135546b142bfaeda9e4e86448df8a26c7cce4f97 (plain)
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