From 25825b21a345161e92ad5496cc4894b7420449fc Mon Sep 17 00:00:00 2001 From: Jerry DeLisle Date: Sun, 5 Nov 2006 17:40:42 +0000 Subject: [PATCH] re PR libfortran/25545 (internal file and dollar edit descriptor) 2006-11-05 Jerry DeLisle PR libgfortran/25545 * gfortran.dg/dollar_edit_descriptor-2.f: New test. From-SVN: r118507 --- gcc/testsuite/ChangeLog | 5 +++++ gcc/testsuite/gfortran.dg/dollar_edit_descriptor-2.f | 9 +++++++++ 2 files changed, 14 insertions(+) create mode 100644 gcc/testsuite/gfortran.dg/dollar_edit_descriptor-2.f diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index bacc45a91e6..90ec59b7f48 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2006-11-05 Jerry DeLisle + + PR libgfortran/25545 + * gfortran.dg/dollar_edit_descriptor-2.f: New test. + 2006-11-05 Jakub Jelinek 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 00000000000..4973d87ac0e --- /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