re PR fortran/49648 (ICE(segfault) with MATMUL and function-result actual argument)

2011-07-07  Mikael Morin  <mikael.morin@sfr.fr>

	PR fortran/49648
	* resolve.c (resolve_symbol): Force resolution of function result's
	array specification.

From-SVN: r176011

gcc/fortran/ChangeLog

+2011-07-07  Mikael Morin  <mikael.morin@sfr.fr>
+
+	PR fortran/49648
+	* resolve.c (resolve_symbol): Force resolution of function result's
+	array specification.
+
 2011-07-07  Tobias Burnus  <burnus@net-b.de>
 
 	* trans.c (gfc_allocate_with_status): Call _gfortran_caf_register

gcc/fortran/resolve.c

@@ -12198,6 +12198,8 @@ resolve_symbol (gfc_symbol *sym)
 	    }
 	}
     }
+  else if (mp_flag && sym->attr.flavor == FL_PROCEDURE && sym->attr.function)
+    gfc_resolve_array_spec (sym->result->as, false);
 
   /* Assumed size arrays and assumed shape arrays must be dummy
      arguments.  Array-spec's of implied-shape should have been resolved to