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

diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog
index 5e155e0d240beabe6ec4afcdd3a513a9f4666244..5a8283f1f2660b5cf9aa18e3d07139c3dc8bdcfe 100644 (file)
--- 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 b4cc360706de342fa371e404a8ed192b9326c9c3..bb9d7e18179930eab91f6c1a354fce22870566cd 100644 (file)
--- 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 29a9fa12b34d8d98ba5125a18af278d2ef8a7b6c..d8cc8833889a556e44986bc76502f8d41aed2299 100644 (file)
--- 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 91584e26df85d19ed7d635b87d5eff1dea26d3d6..2289b6c9197b0b930d278c01e4d0bff5091a73a8 100644 (file)
--- 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