gcc/testsuite/gfortran.dg/assign.f90

   1 ! { dg-do run }
   2 ! Program to test ASSIGNing a label to common variable. PR18827.
   3       program test
   4       integer i
   5       common i
   6       assign 2000 to i  ! { dg-warning "Obsolete: ASSIGN statement" }
   7 2000  continue
   8       end