PR libgfortran/25463
* gfortran.dg/advance.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@108785
138bc75d-0d04-0410-961f-
82ee72b054a4
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.
--- /dev/null
+! { 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