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

re PR libfortran/25463 (T edit descriptor and ADVANCE="no")

Browse source 
2005-12-18  Jerry DeLisle  <jvdelisle@gcc.gnu.org>

	PR libgfortran/25463
	* gfortran.dg/advance.f90: New test.

From-SVN: r108785
This commit is contained in:
Jerry DeLisle 2005-12-19 07:02:05 +00:00
parent 0a73639369
commit 2803e9970d
2 changed files with 17 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/testsuite/ChangeLog
View file

@ -8,6 +8,11 @@
PR rtl-optimization/21041
* gcc.dg/pr21041.c: New test.
2005-12-18 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25463
* gfortran.dg/advance.f90: New test.
2005-12-18 Andreas Krebbel <krebbel1@de.ibm.com>
* gcc.dg/20051201-1.c: New test.

12
gcc/testsuite/gfortran.dg/advance.f90 Normal file
View file

@ -0,0 +1,12 @@
! { dg-do run }
! PR25463 Check that advance='no' works correctly.
! Derived from example given in PR by Thomas Koenig
! Contributed by Jerry DeLisle <jvdelisle@gcc.gnu.org>
program pr25463
character(10) :: str
write (10,'(A)',advance="no") 'ab'
write (10,'(TL2,A)') 'c'
rewind (10)
read (10, '(a)') str
if (str.ne.'abc') call abort()
end