gcc/testsuite/gfortran.dg/assign_4.f

   1 ! { dg-do compile }
   2 ! Option passed to avoid excess errors from obsolete warning
   3 ! { dg-options "-w" }
   4 ! PR17423
   5       program testit
   6 c
   7       assign 12 to i
   8       write(*, i)
   9  0012 format (" **** ASSIGN FORMAT NUMBER TO INTEGER VARIABLE ****" )
  10       end
  11