From 10c17e8fd0cf9fe6471f4841472337364f54b1e1 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Mon, 8 Sep 2008 09:19:46 +0200 Subject: re PR fortran/37400 (implicit character(len=*,kind=kind('A')) (Q) ... no longer gives the right answer.) 2008-09-07 Tobias Burnus PR fortran/37400 * symbol.c (gfc_set_default_type): Copy char len. 2008-09-07 Tobias Burnus PR fortran/37400 * gfortran.dg/implicit_12.f90: New test. From-SVN: r140100 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/symbol.c | 6 ++++++ 2 files changed, 11 insertions(+) (limited to 'gcc/fortran') diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 0e64d91..f80f6a0 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2008-09-08 Tobias Burnus + + PR fortran/37400 + * symbol.c (gfc_set_default_type): Copy char len. + 2008-09-06 Steven G. Kargl PR fortran/36153 diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 0b58079..905b243 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -257,6 +257,12 @@ gfc_set_default_type (gfc_symbol *sym, int error_flag, gfc_namespace *ns) 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. */ -- cgit v1.1