mirror of git://gcc.gnu.org/git/gcc.git
Correction régression pr106918.f90
This commit is contained in:
parent
aa16c6eaf7
commit
ff4cf4b3a0
|
@ -1401,8 +1401,7 @@ gfc_typenode_for_spec (gfc_typespec * spec, int codim)
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case BT_CHARACTER:
|
case BT_CHARACTER:
|
||||||
basetype = gfc_get_character_type (spec->kind,
|
basetype = gfc_get_character_type (spec->kind, spec->u.cl);
|
||||||
spec->deferred ? nullptr : spec->u.cl);
|
|
||||||
break;
|
break;
|
||||||
|
|
||||||
case BT_HOLLERITH:
|
case BT_HOLLERITH:
|
||||||
|
|
Loading…
Reference in New Issue