diff options
| author | Tobias Burnus <burnus@gcc.gnu.org> | 2011-04-06 20:32:27 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-04-06 20:32:27 +0200 |
| commit | d17b0ae1cab1220ed4e43c8972bb962379ef1f7d (patch) | |
| tree | 181e1805c790a6a48ee756f133150b2d9adfaf3c /gcc | |
| parent | 7b7c0f2a21ab089b053f3c17e4881854bea6337a (diff) | |
| download | gcc-d17b0ae1cab1220ed4e43c8972bb962379ef1f7d.zip gcc-d17b0ae1cab1220ed4e43c8972bb962379ef1f7d.tar.gz gcc-d17b0ae1cab1220ed4e43c8972bb962379ef1f7d.tar.bz2 | |
re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])
2011-04-06 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
PR fortran/48477
* gfortran.dg/coarray_13.f90: Avoid out-of-bounds access.
From-SVN: r172061
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 8 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/coarray_13.f90 | 8 |
2 files changed, 11 insertions, 5 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 2e6ba0c..e3de373 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,9 @@ +2011-04-06 Tobias Burnus <burnus@net-b.de> + + PR fortran/18918 + PR fortran/48477 + * gfortran.dg/coarray_13.f90: Avoid out-of-bounds access. + 2011-04-06 Steve Ellcey <sje@cup.hp.com> * gcc.dg/mtune.c: Prune note from output. @@ -33,7 +39,7 @@ 2011-04-04 Yufeng Zhang <yufeng.zhang@arm.com> - * g++.dg/abi/arm_cxa_vec1.C (__ARM_EABI__): Fix typo. + * g++.dg/abi/arm_cxa_vec1.C (__ARM_EABI__): Fix typo. (cctor): Actually return the value. (main): Cast return values. diff --git a/gcc/testsuite/gfortran.dg/coarray_13.f90 b/gcc/testsuite/gfortran.dg/coarray_13.f90 index 1c79a07..6283fa0 100644 --- a/gcc/testsuite/gfortran.dg/coarray_13.f90 +++ b/gcc/testsuite/gfortran.dg/coarray_13.f90 @@ -105,10 +105,10 @@ contains integer :: n integer :: A(-1:3,0:4,-2:5,-4:7)[n+2:n+5,n-1:*] - A(1,1,1,1) = 42 - if (A(1,1,1,1) /= 42) call abort() - A(1,1,1,1)[4,n] = -42 - if (A(1,1,1,1)[4,n] /= -42) call abort() + A(-1,0,-2,-4) = 42 + if (A(-1,0,-2,-4) /= 42) call abort() + A(1,0,-2,-4) = 99 + if (A(1,0,-2,-4) /= 99) call abort() if (this_image(A,dim=1) /= n+2) call abort() if (lcobound (A,dim=1) /= n+2) call abort() |