From: Tobias Burnus Date: Fri, 15 Apr 2011 21:41:25 +0000 (+0200) Subject: re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays]) X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=4d15cfbceec0b640fb015e0ab2ab38c9be32cea8;p=gcc.git re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays]) 2011-04-15 Tobias Burnus PR fortran/18918 * trans-intrinsic.c (conv_intrinsic_cobound): Remove unused code which is also causing an ICE. 2011-04-15 Tobias Burnus PR fortran/18918 * gfortran.dg/coarray_15.f90: Change to dg-do run. From-SVN: r172522 --- 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 + + PR fortran/18918 + * trans-intrinsic.c (conv_intrinsic_cobound): Remove unused + code which is also causing an ICE. + 2011-04-14 Nathan Froyd * 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 + + PR fortran/18918 + * gfortran.dg/coarray_15.f90: Change to dg-do run. + 2011-04-15 Nicola Pero * 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