1 files changed, 0 insertions, 9 deletions
diff --git a/gcc/fortran/decl.c b/gcc/fortran/decl.c
index 59e0eac..25a3967 100644
--- a/gcc/fortran/decl.c
+++ b/gcc/fortran/decl.c
@@ -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.  */