[Bug fortran/59228] ICE with assume type and ASYNCHRONOUS

[janus at gcc dot gnu.org]

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

--- Comment #3 from janus at gcc dot gnu.org ---
The trivial fix is:


Index: gcc/fortran/interface.c
===================================================================
--- gcc/fortran/interface.c    (revision 204922)
+++ gcc/fortran/interface.c    (working copy)
@@ -2092,7 +2092,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *a
       && (actual->symtree->n.sym->attr.asynchronous
          || actual->symtree->n.sym->attr.volatile_)
       &&  (formal->attr.asynchronous || formal->attr.volatile_)
-      && actual->rank && !gfc_is_simply_contiguous (actual, true)
+      && actual->rank && formal->as && !gfc_is_simply_contiguous (actual,
true)
       && ((formal->as->type != AS_ASSUMED_SHAPE
        && formal->as->type != AS_ASSUMED_RANK && !formal->attr.pointer)
       || formal->attr.contiguous))