+2008-09-08 Tobias Burnus <burnus@net.b.de>
+
+ PR fortran/37400
+ * symbol.c (gfc_set_default_type): Copy char len.
+
2008-09-06 Steven G. Kargl <kargls@comcast.net>
PR fortran/36153
sym->ts = *ts;
sym->attr.implicit_type = 1;
+ if (ts->cl)
+ {
+ sym->ts.cl = gfc_get_charlen ();
+ *sym->ts.cl = *ts->cl;
+ }
+
if (sym->attr.is_bind_c == 1)
{
/* BIND(C) variables should not be implicitly declared. */
+2008-09-08 Tobias Burnus <burnus@net.b.de>
+
+ PR fortran/37400
+ * gfortran.dg/implicit_12.f90: New test.
+
2008-09-07 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/37203
* gfortran.d/reshape_order_4.f90: New test case.
2008-09-07 Richard Guenther <rguenther@suse.de>
- Ira Rosen <irar@il.ibm.com>
+ Ira Rosen <irar@il.ibm.com>
PR tree-optimization/36630
* gcc.dg/vect/pr36630.c: New test.
related to PURE and statement functions.
2008-09-07 Dorit Nuzman <dorit@il.ibm.com>
- Ira Rosen <irar@il.ibm.com>
+ Ira Rosen <irar@il.ibm.com>
PR tree-optimization/35642
* lib/target-supports.exp (check_effective_target_vect_short_mult):
2008-09-06 Jeff Law <law@redhat.com>
* gcc.c-torture/execute/memcpy-bi.c: Include <string.h>
-
+
2008-09-06 Tobias Burnus <burnus@net-b.de>
PR fortran/37399
--- /dev/null
+! { dg-do run}
+!
+! PR fortran/37400
+!
+module mod
+ implicit character(len=*,kind=kind('A')) (Q)
+ parameter(Q1 = '12345678') ! len=8
+ parameter(Q2 = 'abcdefghijkl') ! len=12
+ contains
+ subroutine sub(Q3)
+ if(len('#'//Q3//'#') /= 15) call abort()
+ if('#'//Q3//'#' /= '#ABCDEFGHIJKLM#') call abort()
+ end subroutine sub
+end module mod
+program startest
+ use mod
+ implicit none
+ if(len('#'//Q1//'#') /= 10) call abort()
+ if(len('#'//Q2//'#') /= 14) call abort()
+ if('#'//Q1//'#' /='#12345678#') call abort()
+ if('#'//Q2//'#' /='#abcdefghijkl#') call abort()
+ call sub('ABCDEFGHIJKLM') ! len=13
+end program startest