diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2009-10-26 10:08:03 +0100 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2009-10-26 10:08:03 +0100 |
| commit | 60f5ed26b3f6935f26df139c7be127024eedd2c5 (patch) | |
| tree | 68e7035f44ef5bedcb6aab787fc1a8b286a0a8e4 /gcc/fortran/trans-openmp.c | |
| parent | b0418319a0bbb73569df8a266d36f9558fb8e1e2 (diff) | |
| download | gcc-60f5ed26b3f6935f26df139c7be127024eedd2c5.zip gcc-60f5ed26b3f6935f26df139c7be127024eedd2c5.tar.gz gcc-60f5ed26b3f6935f26df139c7be127024eedd2c5.tar.bz2 | |
re PR fortran/41714 ([OOP] ALLOCATE SOURCE= does not properly copy the value from SOURCE)
2009-10-26 Janus Weil <janus@gcc.gnu.org>
PR fortran/41714
* gimple.h (tree_annotate_all_with_location): Remove prototype.
* gimplify.c (tree_should_carry_location_p,
tree_annotate_one_with_location,tree_annotate_all_with_location):
Remove obsolete functions.
2009-10-26 Janus Weil <janus@gcc.gnu.org>
PR fortran/41714
* trans.c (gfc_trans_code): Remove call to
'tree_annotate_all_with_location'. Location should already be set.
* trans-openmp.c (gfc_trans_omp_workshare): Ditto.
* trans-stmt.c (gfc_trans_allocate): Do correct data initialization for
CLASS variables with SOURCE tag, plus some cleanup.
2009-10-26 Janus Weil <janus@gcc.gnu.org>
PR fortran/41714
* gfortran.dg/class_allocate_4.f03: New test.
From-SVN: r153547
Diffstat (limited to 'gcc/fortran/trans-openmp.c')
| -rw-r--r-- | gcc/fortran/trans-openmp.c | 5 |
1 files changed, 0 insertions, 5 deletions
diff --git a/gcc/fortran/trans-openmp.c b/gcc/fortran/trans-openmp.c index 56534cc..4d461cf 100644 --- a/gcc/fortran/trans-openmp.c +++ b/gcc/fortran/trans-openmp.c @@ -1641,11 +1641,6 @@ gfc_trans_omp_workshare (gfc_code *code, gfc_omp_clauses *clauses) if (res != NULL_TREE && ! IS_EMPTY_STMT (res)) { - if (TREE_CODE (res) == STATEMENT_LIST) - tree_annotate_all_with_location (&res, input_location); - else - SET_EXPR_LOCATION (res, input_location); - if (prev_singleunit) { if (ompws_flags & OMPWS_CURR_SINGLEUNIT) |