===================================================================
@@ -862,6 +863,10 @@ gfc_set_array_spec (gfc_symbol *sym, gfc_array_spec *a
sym->as->cotype = as->cotype;
sym->as->corank = as->corank;
+ /* Check F2018:C822. */
+ if (sym->as->rank + sym->as->corank > GFC_MAX_DIMENSIONS)
+ goto too_many;
+
for (i = 0; i < as->corank; i++)
{
sym->as->lower[sym->as->rank + i] = as->lower[i];
@@ -880,6 +885,10 @@ gfc_set_array_spec (gfc_symbol *sym, gfc_array_spec *a
sym->as->cray_pointee = as->cray_pointee;
sym->as->cp_was_assumed = as->cp_was_assumed;
+ /* Check F2018:C822. */
+ if (sym->as->rank + sym->as->corank > GFC_MAX_DIMENSIONS)
+ goto too_many;
+
for (i = 0; i < sym->as->corank; i++)
{
sym->as->lower[as->rank + i] = sym->as->lower[i];
@@ -894,6 +903,12 @@ gfc_set_array_spec (gfc_symbol *sym, gfc_array_spec *a
free (as);
return true;
+
+too_many:
+
+ gfc_error ("rank + corank of %qs exceeds %d at %C", sym->name,
+ GFC_MAX_DIMENSIONS);
+ return false;
}
===================================================================
@@ -8524,15 +8524,6 @@ attr_decl1 (void)
goto cleanup;
}
- /* Check F2018:C822. */
- if (sym->attr.dimension && sym->attr.codimension
- && sym->as && sym->as->rank + sym->as->corank > 15)
- {
- gfc_error ("rank + corank of %qs exceeds 15 at %C", sym->name);
- m = MATCH_ERROR;
- return m;
- }
-
if (sym->attr.cray_pointee && sym->as != NULL)
{
/* Fix the array spec. */