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
()