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