From 542f2d51ce0a26477505a18c153b050dd6ed47ef Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Sun, 10 Mar 2013 21:02:44 +0000 Subject: [PATCH] re PR fortran/55362 (ICE with size() on character pointer) 2013-03-10 Paul Thomas PR fortran/55362 * check.c (array_check): It is an error if a procedure is passed. 2013-03-10 Paul Thomas PR fortran/55362 * gfortran.dg/intrinsic_size_4.f90 : New test. From-SVN: r196584 --- gcc/fortran/check.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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", -- 2.47.2