gcc/testsuite/gfortran.dg/assign_2.f90

   1 ! { dg-do run }
   2 ! Option passed to avoid excess errors from obsolete warning
   3 ! { dg-options "-w" }
   4 ! PR18827
   5       integer i,j
   6       common /foo/ i,j
   7       assign 1000 to j
   8       j = 5
   9       goto j
  10  1000 continue
  11       end