diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-08-27 15:45:35 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-08-27 15:45:35 +0000 |
| commit | 602f77a67267043aac48895540da838d4c5531bb (patch) | |
| tree | 91d413c51010fccf07a64cae63e7d840304325d3 /gcc/fortran/dependency.c | |
| parent | 741b52b54f3b7332b3199a5bd3af12acf0901c13 (diff) | |
| download | gcc-602f77a67267043aac48895540da838d4c5531bb.zip gcc-602f77a67267043aac48895540da838d4c5531bb.tar.gz gcc-602f77a67267043aac48895540da838d4c5531bb.tar.bz2 | |
re PR fortran/77380 (ICE in gfc_check_dependency, at fortran/dependency.c:1255)
2016-08-27 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77380
* dependency.c (gfc_check_dependency): Do not assert with
-fcoarray=lib.
2016-08-27 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/77380
* gfortran.dg/pr77380.f90: New test.
From-SVN: r239796
Diffstat (limited to 'gcc/fortran/dependency.c')
| -rw-r--r-- | gcc/fortran/dependency.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index f117de0..58a443b 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -1252,6 +1252,12 @@ gfc_check_dependency (gfc_expr *expr1, gfc_expr *expr2, bool identical) gfc_constructor *c; int n; + /* -fcoarray=lib can end up here with expr1->expr_type set to EXPR_FUNCTION + and a reference to _F.caf_get, so skip the assert. */ + if (expr1->expr_type == EXPR_FUNCTION + && strcmp (expr1->value.function.name, "_F.caf_get") == 0) + return 0; + gcc_assert (expr1->expr_type == EXPR_VARIABLE); switch (expr2->expr_type) |