diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-04-15 23:41:25 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-04-15 23:41:25 +0200 |
| commit | 4d15cfbceec0b640fb015e0ab2ab38c9be32cea8 (patch) | |
| tree | 074aeedfabbb3ff9b478f7e663a638ca1091e68d | |
| parent | 00b44a6e1e2dea070bf9e3323c77422c76f65058 (diff) | |
| download | gcc-4d15cfbceec0b640fb015e0ab2ab38c9be32cea8.zip gcc-4d15cfbceec0b640fb015e0ab2ab38c9be32cea8.tar.gz gcc-4d15cfbceec0b640fb015e0ab2ab38c9be32cea8.tar.bz2 | |
re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])
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.
From-SVN: r172522
| -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 5e155e0..5a8283f 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 b4cc360..bb9d7e1 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 29a9fa1..d8cc883 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 91584e2..2289b6c 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 |