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

From-SVN: r100316

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a85e6b5d6b6ca29ab68fe7bb7c5236a35dd8990d..1c7fcd55bf15fbbb4dbfb54fc004d24e30acd318 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f b/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f
new file mode 100644 (file)
index 0000000..357a475
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f
@@ -0,0 +1,12 @@
+! { 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