+
−! { dg-do run }
+
−! { dg-options "-std=gnu" }
+
−! 
+
−character(20) :: astring
+
−
+
−100 format ("& notblank !")
+
−200 format ("&          !")
+
−300 format ("&!")
+
−
+
−write(astring,100)
+
−if (astring.ne."& notblank !") STOP 1
+
−!print *, astring
+
−write(astring,200)
+
−if (astring.ne."&          !") STOP 2
+
−!print *, astring
+
−write(astring,300)
+
−if (astring.ne."&!") STOP 3
+
−!print *, astring
+
−
+
−end