diff options
| author | Richard Biener <rguenther@suse.de> | 2017-11-17 13:36:37 +0000 |
|---|---|---|
| committer | Richard Biener <rguenth@gcc.gnu.org> | 2017-11-17 13:36:37 +0000 |
| commit | 34705fdc3b33df1e354c907e526761296333e103 (patch) | |
| tree | 34285f4410f9daa4859939f8013b770975840418 /gcc/fortran | |
| parent | 1ecae1fc238a6b02b3cc2de6a24d73966bc45a03 (diff) | |
| download | gcc-34705fdc3b33df1e354c907e526761296333e103.zip gcc-34705fdc3b33df1e354c907e526761296333e103.tar.gz gcc-34705fdc3b33df1e354c907e526761296333e103.tar.bz2 | |
re PR fortran/83017 (DO CONCURRENT not parallelizing)
2017-11-17 Richard Biener <rguenther@suse.de>
PR fortran/83017
* tree-core.h (enum annot_expr_kind): Add annot_expr_parallel_kind.
* tree-pretty-print.c (dump_generic_node): Handle
annot_expr_parallel_kind.
* tree-cfg.c (replace_loop_annotate_in_block): Likewise.
* gimplify.c (gimple_boolify): Likewise.
fortran/
* trans-stmt.c (gfc_trans_forall_loop): Annotate DO CONCURRENT
loops with annot_expr_parallel_kind instead of just
annot_expr_ivdep_kind.
From-SVN: r254869
Diffstat (limited to 'gcc/fortran')
| -rw-r--r-- | gcc/fortran/ChangeLog | 7 | ||||
| -rw-r--r-- | gcc/fortran/trans-stmt.c | 2 |
2 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index d3170c7..cd72b1c 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,10 @@ +2017-11-17 Richard Biener <rguenther@suse.de> + + PR fortran/83017 + * trans-stmt.c (gfc_trans_forall_loop): Annotate DO CONCURRENT + loops with annot_expr_parallel_kind instead of just + annot_expr_ivdep_kind. + 2017-11-15 Martin Liska <mliska@suse.cz> * options.c (gfc_post_options): diff --git a/gcc/fortran/trans-stmt.c b/gcc/fortran/trans-stmt.c index ea0f952..a89751b 100644 --- a/gcc/fortran/trans-stmt.c +++ b/gcc/fortran/trans-stmt.c @@ -3455,7 +3455,7 @@ gfc_trans_forall_loop (forall_info *forall_tmp, tree body, if (forall_tmp->do_concurrent) cond = build2 (ANNOTATE_EXPR, TREE_TYPE (cond), cond, build_int_cst (integer_type_node, - annot_expr_ivdep_kind)); + annot_expr_parallel_kind)); tmp = build1_v (GOTO_EXPR, exit_label); tmp = fold_build3_loc (input_location, COND_EXPR, void_type_node, |