From 95af2a1f7b191b38bf3809ee4dcd1c5696e831ee Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Sun, 29 May 2005 14:33:30 +0200 Subject: [PATCH] * gfortran.dg/dollar_edit_descriptor-1.f: New test. From-SVN: r100316 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f | 12 ++++++++++++ 2 files changed, 16 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a85e6b5d6b6..1c7fcd55bf1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2005-05-29 Francois-Xavier Coudert + + * gfortran.dg/dollar_edit_descriptor-1.f: New test. + 2005-05-28 Mark Mitchell 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 index 00000000000..357a4755c34 --- /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 -- 2.30.2