From 4d15cfbceec0b640fb015e0ab2ab38c9be32cea8 Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 15 Apr 2011 23:41:25 +0200 Subject: [PATCH] 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 --- gcc/fortran/ChangeLog | 6 ++++++ gcc/fortran/trans-intrinsic.c | 4 ---- gcc/testsuite/ChangeLog | 5 +++++ 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 + + 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 -- 2.30.2