diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2018-08-10 16:08:53 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2018-08-10 16:08:53 +0200 |
| commit | bf9197df810b0b0ac032c7e480d5a8b24c22f973 (patch) | |
| tree | 11d80fa0ccfd814b4d9c2e52533951c7081beb60 /gcc/fortran/resolve.c | |
| parent | 8b9a5b5e0e1c69cd97f56c732cdb8a96c92baabe (diff) | |
| download | gcc-bf9197df810b0b0ac032c7e480d5a8b24c22f973.zip gcc-bf9197df810b0b0ac032c7e480d5a8b24c22f973.tar.gz gcc-bf9197df810b0b0ac032c7e480d5a8b24c22f973.tar.bz2 | |
re PR fortran/57160 (short-circuit IF only with -ffrontend-optimize)
2018-08-10 Janus Weil <janus@gcc.gnu.org>
PR fortran/57160
* invoke.texi (frontend-optimize): Mention short-circuiting.
* options.c (gfc_post_options): Disable -ffrontend-optimize with -Og.
* resolve.c (resolve_operator): Warn about short-circuiting only with
-ffrontend-optimize.
* trans-expr.c (gfc_conv_expr_op): Use short-circuiting operators only
with -ffrontend-optimize. Without that flag, make sure that both
operands are evaluated.
2018-08-10 Janus Weil <janus@gcc.gnu.org>
PR fortran/57160
* gfortran.dg/actual_pointer_function_1.f90: Fix invalid test case.
* gfortran.dg/inline_matmul_23.f90: Add option "-ffrontend-optimize".
* gfortran.dg/short_circuiting_2.f90: New test case.
* gfortran.dg/short_circuiting_3.f90: New test case.
From-SVN: r263471
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 3035e02..16146e6 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -3982,7 +3982,8 @@ resolve_operator (gfc_expr *e) else if (op2->ts.kind < e->ts.kind) gfc_convert_type (op2, &e->ts, 2); - if (e->value.op.op == INTRINSIC_AND || e->value.op.op == INTRINSIC_OR) + if (flag_frontend_optimize && + (e->value.op.op == INTRINSIC_AND || e->value.op.op == INTRINSIC_OR)) { /* Warn about short-circuiting with impure function as second operand. */ |