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

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

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@176011 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 267c81e..fef1944 100644 (file)
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@@ -1,3 +1,9 @@
+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

diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c
index 8418c21..b51ae96 100644 (file)
--- a/gcc/fortran/resolve.c
+++ b/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