re PR fortran/21730 ([4.0 only] Character length incorrect.)

PR fortran/21730 * gfortran.dg/pr21730.f: New test. From-SVN: r102105

re PR fortran/21730 ([4.0 only] Character length incorrect.)
PR fortran/21730 * gfortran.dg/pr21730.f: New test. From-SVN: r102105
e51c47fb · David Edelsohn · David Edelsohn · 7e2eba4b · e51c47fb · e51c47fb
Commit e51c47fb authored Jul 17, 2005 by David Edelsohn Committed by David Edelsohn Jul 16, 2005
Hide whitespace changes
Inline Side-by-side

Showing with 16 additions and 0 deletions

gcc/testsuite/ChangeLog
+5 -0

gcc/testsuite/gfortran.dg/pr21730.f
+11 -0

No files found.
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
+2005-07-16  David Edelsohn  <edelsohn@gnu.org>
+
+	PR fortran/21730
+	* gfortran.dg/pr21730.f: New test.
+
 2005-07-16  Joseph S. Myers  <joseph@codesourcery.com>

 	PR c/22421

--- a/gcc/testsuite/gfortran.dg/pr21730.f
+++ b/gcc/testsuite/gfortran.dg/pr21730.f
+! PR fortran/21730
+! {do-do run}
+      character*2 a
+      character*4 b
+      character*6 c
+      parameter (a="12")
+      parameter (b = a)
+      write (c,'("#",A,"#")') b
+      if (c .ne. '#12  #') call abort
+      end
+