procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

re PR fortran/34782 (tab format failure to display properly (regression vs. g77))

Browse source 
2007-01-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR target/34782
	* gfortran.dg/fmt_t_6.f: New test.

From-SVN: r131641
This commit is contained in:
Jerry DeLisle 2008-01-18 22:22:21 +00:00
parent 6c540522ba
commit a6e0993cf8
2 changed files with 15 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -1,3 +1,8 @@
2007-01-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR target/34782
* gfortran.dg/fmt_t_6.f: New test.
2008-01-18 Tobias Burnus <burnus@net-b.de>
* gfortran.dg/large_real_kind_form_io_1.f90: Enlarge string for internal I/O.

10
gcc/testsuite/gfortran.dg/fmt_t_6.f Normal file
View file

@ -0,0 +1,10 @@
! { dg-do run }
! PR34782 tab format failure to display properly (regression vs. g77)
character a(6)
character(22) :: output
data a / 'a', 'b', 'c', 'd', 'e', 'f' /
!write(*,'(a)') "123456789012345678901234567890"
write(output,'(T20,A3, T1,A4, T5,A2, T7,A2, T9,A4, T17,A2)')
1 'a', 'b', 'c', 'd', 'e', 'f'
if (output .ne. " b c d e f a") call abort
end