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