diff options
| author | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-11-05 17:40:42 +0000 |
|---|---|---|
| committer | Jerry DeLisle <jvdelisle@gcc.gnu.org> | 2006-11-05 17:40:42 +0000 |
| commit | 25825b21a345161e92ad5496cc4894b7420449fc (patch) | |
| tree | 1561758878e9843c619193edf74ccf3b20f0c1d1 /gcc | |
| parent | 97cd182da75d972645a95e493253a61142d4c014 (diff) | |
| download | gcc-25825b21a345161e92ad5496cc4894b7420449fc.zip gcc-25825b21a345161e92ad5496cc4894b7420449fc.tar.gz gcc-25825b21a345161e92ad5496cc4894b7420449fc.tar.bz2 | |
re PR libfortran/25545 (internal file and dollar edit descriptor)
2006-11-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR libgfortran/25545
* gfortran.dg/dollar_edit_descriptor-2.f: New test.
From-SVN: r118507
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/dollar_edit_descriptor-2.f | 9 |
2 files changed, 14 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bacc45a..90ec59b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-11-05 Jerry DeLisle <jvdelisle@gcc.gnu.org> + + PR libgfortran/25545 + * gfortran.dg/dollar_edit_descriptor-2.f: New test. + 2006-11-05 Jakub Jelinek <jakub@redhat.com> PR middle-end/29695 diff --git a/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-2.f b/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-2.f new file mode 100644 index 0000000..4973d87 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/dollar_edit_descriptor-2.f @@ -0,0 +1,9 @@ +! { dg-do run } +! { dg-options "-w" } +! PR25545 internal file and dollar edit descriptor. + program main + character*20 line + line = '1234567890ABCDEFGHIJ' + write (line, '(A$)') 'asdf' + if (line.ne.'asdf') call abort() + end |