* gfortran.dg/pr21730.f: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@102105
138bc75d-0d04-0410-961f-
82ee72b054a4
+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
--- /dev/null
+! 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
+