gcc/testsuite/gfortran.dg/assign_3.f90

   1 ! { dg-do compile }
   2 ! Option passed to avoid excess errors from obsolete warning
   3 ! { dg-options "-w" }
   4 ! PR18827
   5       integer i,j
   6       equivalence (i,j)
   7       assign 1000 to i
   8       write (*, j) ! { dg-error "not been assigned a format label" }
   9       goto j   ! { dg-error "not been assigned a target label" }
  10  1000 continue
  11       end