diff options
| author | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-07-22 18:53:11 +0000 |
|---|---|---|
| committer | Steven G. Kargl <kargl@gcc.gnu.org> | 2016-07-22 18:53:11 +0000 |
| commit | d52d37673383f479aec07664bac5eec07f19d2da (patch) | |
| tree | 2fbf38810c9a6a69612d2bd8a19bfad05a011ac6 /gcc/fortran/check.c | |
| parent | 2e6b45afba5f9606e6322e1a2b08b86971f38e92 (diff) | |
| download | gcc-d52d37673383f479aec07664bac5eec07f19d2da.zip gcc-d52d37673383f479aec07664bac5eec07f19d2da.tar.gz gcc-d52d37673383f479aec07664bac5eec07f19d2da.tar.bz2 | |
re PR fortran/71935 (ICE is_c_interoperable(): gfc_simplify_expr failed)
2016-07-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/71935
* check.c (is_c_interoperable): Simplify right expression.
2016-07-22 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/71935
* gfortran.dg/c_sizeof_1.f90: Move invalid code to ...
* gfortran.dg/c_sizeof_6.f90: here. Test for error.
* gfortran.dg/pr71935.f90: New test.
From-SVN: r238665
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 d26e45e..7fc60808 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -4278,7 +4278,7 @@ is_c_interoperable (gfc_expr *expr, const char **msg, bool c_loc, bool c_f_ptr) } if (expr->ts.u.cl && expr->ts.u.cl->length - && !gfc_simplify_expr (expr, 0)) + && !gfc_simplify_expr (expr->ts.u.cl->length, 0)) gfc_internal_error ("is_c_interoperable(): gfc_simplify_expr failed"); if (!c_loc && expr->ts.u.cl |