diff options
| author | Francois-Xavier Coudert <coudert@clipper.ens.fr> | 2005-05-29 14:33:30 +0200 |
|---|---|---|
| committer | François-Xavier Coudert <fxcoudert@gcc.gnu.org> | 2005-05-29 12:33:30 +0000 |
| commit | 95af2a1f7b191b38bf3809ee4dcd1c5696e831ee (patch) | |
| tree | 7c71a3c7901dd112483771264de162fec78db832 /gcc | |
| parent | c9330b0331b05cb271bc9a18970d10894b370765 (diff) | |
| download | gcc-95af2a1f7b191b38bf3809ee4dcd1c5696e831ee.zip gcc-95af2a1f7b191b38bf3809ee4dcd1c5696e831ee.tar.gz gcc-95af2a1f7b191b38bf3809ee4dcd1c5696e831ee.tar.bz2 | |
* gfortran.dg/dollar_edit_descriptor-1.f: New test.
From-SVN: r100316
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f | 12 |
2 files changed, 16 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index a85e6b5..1c7fcd5 100644 --- 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 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 |