[Bug fortran/47349] missing warning: Actual argument contains too few elements

[janus at gcc dot gnu.org]

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

--- Comment #1 from janus at gcc dot gnu.org 2011-01-18 19:08:00 UTC ---
Here's a first patch, not regtested yet:

Index: gcc/fortran/interface.c
===================================================================
--- gcc/fortran/interface.c     (revision 168850)
+++ gcc/fortran/interface.c     (working copy)
@@ -1915,8 +1915,6 @@ get_expr_storage_size (gfc_expr *e)
                        - mpz_get_si (ref->u.ar.as->lower[i]->value.integer));
            }
         }
-      else
-       return 0;
     }

   if (substrlen)