diff options
| author | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-10-20 12:50:27 +0200 |
|---|---|---|
| committer | Andre Vehreschild <vehre@gcc.gnu.org> | 2016-10-20 12:50:27 +0200 |
| commit | 40cc684dce5afb2924e30a976619fd800d591d70 (patch) | |
| tree | 14cbac6530f569a2ff2b4548f2e5843d1dd6d5a2 /gcc/fortran/class.c | |
| parent | 6c1a9e41d9e3764d4e1518d9d4dbf8c264ab63bc (diff) | |
| download | gcc-40cc684dce5afb2924e30a976619fd800d591d70.zip gcc-40cc684dce5afb2924e30a976619fd800d591d70.tar.gz gcc-40cc684dce5afb2924e30a976619fd800d591d70.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/class.c')
| -rw-r--r-- | gcc/fortran/class.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/class.c b/gcc/fortran/class.c index 6d324a6..e110f2c 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; } |