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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100316 138bc75d-0d04-0410-961f-82ee72b054a4

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

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