2 ! PR25631 Check that TL editing works for special case of no bytes written yet.
3 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
8 10 format(tr2,tl2,g11.4)
9 if (line.ne.' 12.34 ') call abort()
11 20 format(tr5,tl3,g11.4)
12 if (line.ne.' 12.34 ') call abort()
14 30 format(tr5,tl3,tl3,g11.4)
15 if (line.ne.' 12.34 ') call abort()
17 40 format(tr25,tl35,f11.4)
18 if (line.ne.' 12.3400 ') call abort()
20 50 format(tl5,tr3,f11.4)
21 if (line.ne.' 12.3400 ') call abort()
23 60 format(t5,tl3,f11.4)
24 if (line.ne.' 12.3400 ') call abort()