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

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 2e6ba0c748f6e2c901019716311027dd6e78dcdd..e3de3732f08172a92b87e8defd421101fd818ae1 100644 (file)
--- 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 1c79a079130ad65e3edd9de9ddf6abc8f5d73acd..6283fa02c5733b4a3914c52b6c044ab5bc8a9890 100644 (file)
--- 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()