diff options
Diffstat (limited to 'gcc/fortran/array.c')
| -rw-r--r-- | gcc/fortran/array.c | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/gcc/fortran/array.c b/gcc/fortran/array.c index 36223d2..1834d2f 100644 --- a/gcc/fortran/array.c +++ b/gcc/fortran/array.c @@ -859,10 +859,6 @@ gfc_set_array_spec (gfc_symbol *sym, gfc_array_spec *as, locus *error_loc) if (as->corank) { - /* The "sym" has no corank (checked via gfc_add_codimension). Thus - the codimension is simply added. */ - gcc_assert (as->rank == 0 && sym->as->corank == 0); - sym->as->cotype = as->cotype; sym->as->corank = as->corank; /* Check F2018:C822. */ |