From: Andre Vehreschild <vehre@gcc.gnu.org>
Date: Thu, 20 Oct 2016 10:50:27 +0000 (+0200)
Subject: class.c (gfc_build_class_symbol): Set the kind of _len to gfc_charlen_int_kind to... 
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=40cc684dce5afb2924e30a976619fd800d591d70;p=gcc.git

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  <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 ff4ffadeeaa..e4c78089432 100644
--- 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 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;
 	}