2007-05-31 Paul Thomas <pault@gcc.gnu.org>

	PR fortran/32156
	* trans-array.c (gfc_trans_array_constructor): Treat the case
	where the ss expression charlen is missing.

2007-05-31  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/32156
	* gfortran.dg/char_array_constructor_3.f90: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@125240 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 1f60b34..025471e 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,5 +1,11 @@
 2007-05-31  Paul Thomas  <pault@gcc.gnu.org>
 
+       PR fortran/32156
+       * trans-array.c (gfc_trans_array_constructor): Treat the case
+       where the ss expression charlen is missing.
+
+22007-05-31  Paul Thomas  <pault@gcc.gnu.org>
+
        PR fortran/32103
        * module.c (mio_symtree_ref): If an equivalence group member
        is not used, give it a hidden symbol and set the pointer_info.

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 86e6766..f659b4b 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+007-05-31  Paul Thomas  <pault@gcc.gnu.org>
+
+       PR fortran/32156
+       * gfortran.dg/char_array_constructor_3.f90: New test.
+
 2007-05-31  Zdenek Dvorak  <dvorakz@suse.cz>
 
        PR tree-optimization/32160

diff --git a/gcc/testsuite/gfortran.dg/char_array_constructor_3.f90 b/gcc/testsuite/gfortran.dg/char_array_constructor_3.f90
new file mode 100644 (file)
index 0000000..d4c4964
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/char_array_constructor_3.f90
@@ -0,0 +1,8 @@
+! { dg-do compile }
+! tests the fix for PR32156, in which the character length of the compound
+! expression got lost.
+!
+! Contributed by Tobias Burnus <burnus@gcc.gnu.org>
+!
+write (*,'(2A3)') 'X'//(/"1","2"/)//'Y'
+END