URL
https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk
Subversion Repositories openrisc_me
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.dg/] [fmt_tl.f] - Rev 414
Go to most recent revision | Compare with Previous | Blame | View Log
! { dg-do run } ! { dg-options "-std=legacy" } ! ! PR25631 Check that TL editing works for special case of no bytes written yet. ! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org> real x character*15 line x = 12.34 write(line,10) x 10 format(tr2,tl2,g11.4) if (line.ne.' 12.34 ') call abort() write(line,20) x 20 format(tr5,tl3,g11.4) if (line.ne.' 12.34 ') call abort() write(line,30) x 30 format(tr5,tl3,tl3,g11.4) if (line.ne.' 12.34 ') call abort() write(line,40) x 40 format(tr25,tl35,f11.4) if (line.ne.' 12.3400 ') call abort() write(line,50) x 50 format(tl5,tr3,f11.4) if (line.ne.' 12.3400 ') call abort() write(line,60) x 60 format(t5,tl3,f11.4) if (line.ne.' 12.3400 ') call abort() end
Go to most recent revision | Compare with Previous | Blame | View Log