[Bug fortran/43173] Unnecessary array temporary: Passing contiguous array as actual argument

[burnus at gcc dot gnu dot org]

------- Comment #8 from burnus at gcc dot gnu dot org  2010-03-02 09:24 -------
Completely untested patch:

--- trans-array.c       (revision 157160)
+++ trans-array.c       (working copy)
@@ -5555,5 +5555,5 @@ gfc_conv_array_parameter (gfc_se * se, g
   no_pack = ((sym && sym->as
                  && !sym->attr.pointer
-                 && sym->as->type != AS_DEFERRED
+                 && (sym->as->type != AS_DEFERRED || sym->attr.allocatable)
                  && sym->as->type != AS_ASSUMED_SHAPE)
                      ||


-- 


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