re PR fortran/55362 (ICE with size() on character pointer)

2013-03-10  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/55362
	* check.c (array_check): It is an error if a procedure is
	passed.

2013-03-10  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/55362
	* gfortran.dg/intrinsic_size_4.f90 : New test.

From-SVN: r196584

diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c
index 190b68efd7af50838498321239ff50eb3f8fa8eb..a3d32b6933f70284c4f213d0b18231f1bcb07ecd 100644 (file)
--- a/gcc/fortran/check.c
+++ b/gcc/fortran/check.c
@@ -265,7 +265,7 @@ logical_array_check (gfc_expr *array, int n)
 static gfc_try
 array_check (gfc_expr *e, int n)
 {
-  if (e->rank != 0 && e->ts.type != BT_PROCEDURE))
+  if (e->rank != 0 && e->ts.type != BT_PROCEDURE)
     return SUCCESS;
 
   gfc_error ("'%s' argument of '%s' intrinsic at %L must be an array",