From: Paul Thomas <pault@gcc.gnu.org>
Date: Sun, 10 Mar 2013 21:02:44 +0000 (+0000)
Subject: re PR fortran/55362 (ICE with size() on character pointer)
X-Git-Tag: releases/gcc-4.6.4~111
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=542f2d51ce0a26477505a18c153b050dd6ed47ef;p=thirdparty%2Fgcc.git

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 190b68efd7af..a3d32b6933f7 100644
--- 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",