diff options
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/dependency.c | 1 | ||||
| -rw-r--r-- | gcc/fortran/frontend-passes.c | 1 | ||||
| -rw-r--r-- | gcc/fortran/interface.c | 3 | ||||
| -rw-r--r-- | gcc/fortran/symbol.c | 1 | ||||
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 4 |
6 files changed, 6 insertions, 10 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 2aa7c69..a2b9a96 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,5 +1,11 @@ 2016-09-27 Jakub Jelinek <jakub@redhat.com> + * dependency.c (gfc_dep_compare_expr): Remove break after return. + * frontend-passes.c (optimize_op): Likewise. + * interface.c (gfc_current_interface_head): Likewise. + * symbol.c (check_conflict): Likewise. + * trans-intrinsic.c (build_fix_expr): Likewise. + PR fortran/77666 * trans-openmp.c (gfc_omp_private_outer_ref): Return true even for references to allocatable arrays. diff --git a/gcc/fortran/dependency.c b/gcc/fortran/dependency.c index 12e5d13..8e78e43 100644 --- a/gcc/fortran/dependency.c +++ b/gcc/fortran/dependency.c @@ -486,7 +486,6 @@ gfc_dep_compare_expr (gfc_expr *e1, gfc_expr *e2) case EXPR_FUNCTION: return gfc_dep_compare_functions (e1, e2, false); - break; default: return -2; diff --git a/gcc/fortran/frontend-passes.c b/gcc/fortran/frontend-passes.c index e049fb9..54b8554 100644 --- a/gcc/fortran/frontend-passes.c +++ b/gcc/fortran/frontend-passes.c @@ -1491,7 +1491,6 @@ optimize_op (gfc_expr *e) case INTRINSIC_POWER: return optimize_power (e); - break; default: break; diff --git a/gcc/fortran/interface.c b/gcc/fortran/interface.c index 9a0ccf8..5883e39 100644 --- a/gcc/fortran/interface.c +++ b/gcc/fortran/interface.c @@ -4306,16 +4306,13 @@ gfc_current_interface_head (void) { case INTERFACE_INTRINSIC_OP: return current_interface.ns->op[current_interface.op]; - break; case INTERFACE_GENERIC: case INTERFACE_DTIO: return current_interface.sym->generic; - break; case INTERFACE_USER_OP: return current_interface.uop->op; - break; default: gcc_unreachable (); diff --git a/gcc/fortran/symbol.c b/gcc/fortran/symbol.c index 3026356..cbe4347 100644 --- a/gcc/fortran/symbol.c +++ b/gcc/fortran/symbol.c @@ -464,7 +464,6 @@ check_conflict (symbol_attribute *attr, const char *name, locus *where) gfc_error ("Namelist group name at %L cannot have the " "SAVE attribute", where); return false; - break; case FL_PROCEDURE: /* Conflicts between SAVE and PROCEDURE will be checked at resolution stage, see "resolve_fl_procedure". */ diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index d3f6842..954f7b3 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -410,19 +410,15 @@ build_fix_expr (stmtblock_t * pblock, tree arg, tree type, { case RND_FLOOR: return build_fixbound_expr (pblock, arg, type, 0); - break; case RND_CEIL: return build_fixbound_expr (pblock, arg, type, 1); - break; case RND_ROUND: return build_round_expr (arg, type); - break; case RND_TRUNC: return fold_build1_loc (input_location, FIX_TRUNC_EXPR, type, arg); - break; default: gcc_unreachable (); |