fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / fmt_tl.f
blob656499ed05ef069b4f749c1b8e3d3b2bd82f22f8
1 ! { dg-do run }
2 ! { dg-options "-std=legacy" }
4 ! PR25631 Check that TL editing works for special case of no bytes written yet.
5 ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
6 real x
7 character*15 line
8 x = 12.34
9 write(line,10) x
10 10 format(tr2,tl2,g11.4)
11 if (line.ne.' 12.34 ') call abort()
12 write(line,20) x
13 20 format(tr5,tl3,g11.4)
14 if (line.ne.' 12.34 ') call abort()
15 write(line,30) x
16 30 format(tr5,tl3,tl3,g11.4)
17 if (line.ne.' 12.34 ') call abort()
18 write(line,40) x
19 40 format(tr25,tl35,f11.4)
20 if (line.ne.' 12.3400 ') call abort()
21 write(line,50) x
22 50 format(tl5,tr3,f11.4)
23 if (line.ne.' 12.3400 ') call abort()
24 write(line,60) x
25 60 format(t5,tl3,f11.4)
26 if (line.ne.' 12.3400 ') call abort()
27 end