diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-29 12:33:30 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-05-29 12:33:30 +0000 |
| commit | 2be5bcddb65d5d6e1ffe163f0b0987a1eb5a0419 (patch) | |
| tree | 7c71a3c7901dd112483771264de162fec78db832 /gcc/testsuite/gfortran.dg | |
| parent | 7cc5fadbca6bf248a87f6ac4025e3caa91ea71d8 (diff) | |
| download | gcc-2be5bcddb65d5d6e1ffe163f0b0987a1eb5a0419.tar.gz | |
* 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
Diffstat (limited to 'gcc/testsuite/gfortran.dg')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dollar_edit_descriptor-1.f | 12 |
1 files changed, 12 insertions, 0 deletions
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 |