From 40cc684dce5afb2924e30a976619fd800d591d70 Mon Sep 17 00:00:00 2001 From: Andre Vehreschild Date: Thu, 20 Oct 2016 12:50:27 +0200 Subject: [PATCH] class.c (gfc_build_class_symbol): Set the kind of _len to gfc_charlen_int_kind to catch changes of the charlen kind. gcc/fortran/ChangeLog: 2016-10-20 Andre Vehreschild * class.c (gfc_build_class_symbol): Set the kind of _len to gfc_charlen_int_kind to catch changes of the charlen kind. From-SVN: r241367 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/class.c | 2 +- 2 files changed, 6 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index ff4ffadeeaa..e4c78089432 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2016-10-20 Andre Vehreschild + + * class.c (gfc_build_class_symbol): Set the kind of _len to + gfc_charlen_int_kind to catch changes of the charlen kind. + 2016-10-17 Steven G. Kargl PR fortran/77978 diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 6d324a61242..e110f2cf9f4 100644 --- a/gcc/fortran/class.c +++ b/gcc/fortran/class.c @@ -707,7 +707,7 @@ gfc_build_class_symbol (gfc_typespec *ts, symbol_attribute *attr, if (!gfc_add_component (fclass, "_len", &c)) return false; c->ts.type = BT_INTEGER; - c->ts.kind = 4; + c->ts.kind = gfc_charlen_int_kind; c->attr.access = ACCESS_PRIVATE; c->attr.artificial = 1; } -- 2.30.2