* gfortran.dg/dollar_edit_descriptor-1.f: New test.

From-SVN: r100316

* gfortran.dg/dollar_edit_descriptor-1.f: New test.
From-SVN: r100316
95af2a1f · Francois-Xavier Coudert · François-Xavier Coudert · c9330b03 · 95af2a1f · 95af2a1f
Commit 95af2a1f authored May 29, 2005 by Francois-Xavier Coudert Committed by François-Xavier Coudert May 29, 2005
Show whitespace changes
Inline Side-by-side

Showing with 16 additions and 0 deletions

gcc/testsuite/ChangeLog
+4 -0

gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f
+12 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+2005-05-29  Francois-Xavier Coudert  <coudert@clipper.ens.fr>
+
+	* gfortran.dg/dollar_edit_descriptor-1.f: New test.
+
 2005-05-28  Mark Mitchell  <mark@codesourcery.com>

 	PR c++/21340

--- a/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f
+++ b/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f
+! { dg-do run }
+! PR libfortran/20006
+      character*5 c
+      open (42,status='scratch')
+      write (42,'(A,$)') 'abc'
+      write (42,'(A)') 'de'
+      rewind (42)
+      read (42,'(A)') c
+      close (42)
+
+      if (c /= 'abcde') call abort
+      end