gcc/testsuite/gfortran.dg/pr65903.f90

   1 ! { dg-do run }
   2 ! { dg-options "-std=gnu" }
   3 !
   4 character(20) :: astring
   5
   6 100 format ("& notblank !")
   7 200 format ("&          !")
   8 300 format ("&!")
   9
  10 write(astring,100)
  11 if (astring.ne."& notblank !") call abort
  12 !print *, astring
  13 write(astring,200)
  14 if (astring.ne."&          !") call abort
  15 !print *, astring
  16 write(astring,300)
  17 if (astring.ne."&!") call abort
  18 !print *, astring
  19
  20 end