[Bug fortran/58331] [OOP] Bogus rank checking with explicit-/assumed-size arrays and CLASS

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=58331

--- Comment #1 from Tobias Burnus <burnus at gcc dot gnu.org> ---
Untested patch:

--- a/gcc/fortran/interface.c
+++ b/gcc/fortran/interface.c
@@ -2135 +2135,2 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
-      || (actual->rank != 0 && !(is_elemental || formal->attr.dimension))
+      || (actual->rank != 0 && !(is_elemental || formal->attr.dimension
+                                || CLASS_DATA (formal)->attr.dimension))