OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])

Browse Source 
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
This commit is contained in:
Tobias Burnus 2011-04-15 23:41:25 +02:00 committed by Tobias Burnus
parent 00b44a6e1e
commit 4d15cfbcee
4 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gcc/fortran/ChangeLog
View File

@ -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.

4
gcc/fortran/trans-intrinsic.c
View File

@ -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;

5
gcc/testsuite/ChangeLog
View File

@ -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.

2
gcc/testsuite/gfortran.dg/coarray_15.f90
View File

@ -1,4 +1,4 @@
! { dg-do compile }
! { dg-do run }
! { dg-options "-fcoarray=single" }
!
! PR fortran/18918