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; 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: