class.c (gfc_build_class_symbol): Set the kind of _len to gfc_charlen_int_kind to...

gcc/fortran/ChangeLog:

2016-10-20  Andre Vehreschild  <vehre@gcc.gnu.org>

	* 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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index ff4ffadeeaadc3ea9d6a7c354bdc0a4cb39e7d72..e4c78089432ebb07f9f3cdcb0b9dda2fec52c664 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,8 @@
+2016-10-20  Andre Vehreschild  <vehre@gcc.gnu.org>
+
+       * 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  <kargl@gcc.gnu.org>
 
        PR fortran/77978

diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c
index 6d324a612426cb3ed2e5c8edf2d05caf02ca0073..e110f2cf9f4c8f96e94a55b06815410210e7e38d 100644 (file)
--- 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;
        }