OSDN Git Service

* gfortran.dg/dollar_edit_descriptor-1.f: New test.
authorfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 29 May 2005 12:33:30 +0000 (12:33 +0000)
committerfxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 29 May 2005 12:33:30 +0000 (12:33 +0000)
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@100316 138bc75d-0d04-0410-961f-82ee72b054a4

gcc/testsuite/ChangeLog
gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f [new file with mode: 0644]

index a85e6b5..1c7fcd5 100644 (file)
@@ -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
@@ -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