diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2013-02-09 09:49:49 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2013-02-09 09:49:49 +0000 |
| commit | 52880d11ce08fc59999823524667a7f135e7dbac (patch) | |
| tree | 1eff89f0fe9ef46f3f6294a4a5a54bf040ab4708 /gcc/fortran/check.c | |
| parent | 59ac9a555ea3a6fde282e135a7dc7546a6e06b5f (diff) | |
| download | gcc-52880d11ce08fc59999823524667a7f135e7dbac.zip gcc-52880d11ce08fc59999823524667a7f135e7dbac.tar.gz gcc-52880d11ce08fc59999823524667a7f135e7dbac.tar.bz2 | |
re PR fortran/55362 (ICE with size() on character pointer)
2013-02-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/55362
* check.c (array_check): It is an error if a procedure is
passed.
2013-02-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/55362
* gfortran.dg/intrinsic_size_4.f90 : New test.
From-SVN: r195915
Diffstat (limited to 'gcc/fortran/check.c')
| -rw-r--r-- | gcc/fortran/check.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 8bd0645..0e71b95 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -256,7 +256,7 @@ array_check (gfc_expr *e, int n) return SUCCESS; } - if (e->rank != 0) + if (e->rank != 0 && e->ts.type != BT_PROCEDURE) return SUCCESS; gfc_error ("'%s' argument of '%s' intrinsic at %L must be an array", |