diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-10-22 23:23:06 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-10-22 23:48:57 +0200 |
| commit | 24e99e6ec1cc57f3660c00ff677c7feb16aa94d2 (patch) | |
| tree | e8289755fc57f2a57dbbd94b2a2b2d5a6328f66b /gcc/fortran/trans-expr.c | |
| parent | aa41680e481456917824e3794c526521b9520589 (diff) | |
| download | gcc-24e99e6ec1cc57f3660c00ff677c7feb16aa94d2.zip gcc-24e99e6ec1cc57f3660c00ff677c7feb16aa94d2.tar.gz gcc-24e99e6ec1cc57f3660c00ff677c7feb16aa94d2.tar.bz2 | |
Fortran: Avoid running into assert with -fcheck= + UBSAN
PR fortran/92621
gcc/fortran/
* trans-expr.c (gfc_trans_assignment_1): Add STRIP_NOPS.
gcc/testsuite/
* gfortran.dg/bind-c-intent-out-2.f90: New test.
Diffstat (limited to 'gcc/fortran/trans-expr.c')
| -rw-r--r-- | gcc/fortran/trans-expr.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/trans-expr.c b/gcc/fortran/trans-expr.c index 29697e6..2d7f9e0 100644 --- a/gcc/fortran/trans-expr.c +++ b/gcc/fortran/trans-expr.c @@ -11727,6 +11727,7 @@ gfc_trans_assignment_1 (gfc_expr * expr1, gfc_expr * expr2, bool init_flag, tmp = INDIRECT_REF_P (lse.expr) ? gfc_build_addr_expr (NULL_TREE, lse.expr) : lse.expr; + STRIP_NOPS (tmp); /* We should only get array references here. */ gcc_assert (TREE_CODE (tmp) == POINTER_PLUS_EXPR |