re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])

2011-05-14  Tobias Burnus  <burnus@net-b.de>

        PR fortran/18918
        * interface.c (compare_parameter): Skip diagnostic if
        actual argument is not an array; rank mismatch is diagnosted later.

2011-05-14  Tobias Burnus  <burnus@net-b.de>

        PR fortran/18918
        * gfortran.de/coarray_20.f90: New.

From-SVN: r173755

gcc/fortran/ChangeLog

@@ -16,6 +16,12 @@
 
 2011-05-14  Tobias Burnus  <burnus@net-b.de>
 
+	PR fortran/18918
+	* interface.c (compare_parameter): Skip diagnostic if
+	actual argument is not an array; rank mismatch is diagnosted later.
+
+2011-05-14  Tobias Burnus  <burnus@net-b.de>
+
 	* options.c (gfc_init_options, gfc_post_options): Enable
 	-fstack-arrays by default if -Ofast is used.
 	* invoke.texi (-fstack-arrays): Document this.

gcc/fortran/interface.c

@@ -1618,6 +1618,7 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
       /* F2008, 12.5.2.8.  */
       if (formal->attr.dimension
 	  && (formal->attr.contiguous || formal->as->type != AS_ASSUMED_SHAPE)
+	  && gfc_expr_attr (actual).dimension
 	  && !gfc_is_simply_contiguous (actual, true))
 	{
 	  if (where)

gcc/testsuite/ChangeLog

+2011-05-14  Tobias Burnus  <burnus@net-b.de>
+
+	PR fortran/18918
+	* gfortran.de/coarray_20.f90: New.
+
 2011-05-14  Thomas Koenig  <tkoenig@gcc.gnu.org>
 
 	PR fortran/22572

gcc/testsuite/gfortran.dg/coarray_20.f90

+! { dg-do compile }
+! { dg-options "-fcoarray=single" }
+!
+! Before a bogus error (argument not simply contiguous)
+! was printed instead of the rank mismatch
+!
+! PR fortran/18918
+!
+integer :: A[*]
+call bar(A) ! { dg-error "Rank mismatch in argument" }
+contains
+  subroutine bar(x)
+    integer :: x(1)[*]
+  end subroutine bar
+end