diff options
| author | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-15 21:41:25 +0000 |
|---|---|---|
| committer | burnus <burnus@138bc75d-0d04-0410-961f-82ee72b054a4> | 2011-04-15 21:41:25 +0000 |
| commit | 0836354afffd5f75a71a84d0a4a2d0fb7ba0f2a6 (patch) | |
| tree | 074aeedfabbb3ff9b478f7e663a638ca1091e68d | |
| parent | f28bd647e1cf4e9ef25390982e25619fa8c5b443 (diff) | |
| download | gcc-0836354afffd5f75a71a84d0a4a2d0fb7ba0f2a6.tar.gz | |
2011-04-15 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* trans-intrinsic.c (conv_intrinsic_cobound): Remove unused
code which is also causing an ICE.
2011-04-15 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* gfortran.dg/coarray_15.f90: Change to dg-do run.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@172522 138bc75d-0d04-0410-961f-82ee72b054a4
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 4 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_15.f90 | 2 |
4 files changed, 12 insertions, 5 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 5e155e0d240..5a8283f1f26 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-04-15 Tobias Burnus <burnus@net-b.de> + + PR fortran/18918 + * trans-intrinsic.c (conv_intrinsic_cobound): Remove unused + code which is also causing an ICE. + 2011-04-14 Nathan Froyd <froydnj@codesourcery.com> * f95-lang.c (poplevel): Use BLOCK_CHAIN and block_chainon. diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index b4cc360706d..bb9d7e18179 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -1129,7 +1129,6 @@ conv_intrinsic_cobound (gfc_se * se, gfc_expr * expr) gfc_ss *ss; tree bound, resbound, resbound2, desc, cond, tmp; tree type; - gfc_array_spec * as; int corank; gcc_assert (expr->value.function.isym->id == GFC_ISYM_LCOBOUND @@ -1142,9 +1141,6 @@ conv_intrinsic_cobound (gfc_se * se, gfc_expr * expr) gcc_assert (arg->expr->expr_type == EXPR_VARIABLE); corank = gfc_get_corank (arg->expr); - as = gfc_get_full_arrayspec_from_expr (arg->expr); - gcc_assert (as); - ss = gfc_walk_expr (arg->expr); gcc_assert (ss != gfc_ss_terminator); ss->data.info.codimen = corank; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 29a9fa12b34..d8cc8833889 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-04-15 Tobias Burnus <burnus@net-b.de> + + PR fortran/18918 + * gfortran.dg/coarray_15.f90: Change to dg-do run. + 2011-04-15 Nicola Pero <nicola.pero@meta-innovation.com> * objc.dg/naming-4.m: Updated. diff --git a/gcc/testsuite/gfortran.dg/coarray_15.f90 b/gcc/testsuite/gfortran.dg/coarray_15.f90 index 91584e26df8..2289b6c9197 100644 --- a/gcc/testsuite/gfortran.dg/coarray_15.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_15.f90 @@ -1,4 +1,4 @@ -! { dg-do compile } +! { dg-do run } ! { dg-options "-fcoarray=single" } ! ! PR fortran/18918 |