Correction régression pr106918.f90

This commit is contained in:
Mikael Morin 2025-10-17 12:29:05 +02:00
parent aa16c6eaf7
commit ff4cf4b3a0
1 changed files with 1 additions and 2 deletions

View File

@ -1401,8 +1401,7 @@ gfc_typenode_for_spec (gfc_typespec * spec, int codim)
break;
case BT_CHARACTER:
basetype = gfc_get_character_type (spec->kind,
spec->deferred ? nullptr : spec->u.cl);
basetype = gfc_get_character_type (spec->kind, spec->u.cl);
break;
case BT_HOLLERITH: