2005-10-24 Jerry DeLisle <jvdelisle@verizon.net>

[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gfortran.dg / arrayio_4.f90

diff --git a/gcc/testsuite/gfortran.dg/arrayio_4.f90 b/gcc/testsuite/gfortran.dg/arrayio_4.f90
index 3b4e535..6236d2d 100644 (file)
--- a/gcc/testsuite/gfortran.dg/arrayio_4.f90
+++ b/gcc/testsuite/gfortran.dg/arrayio_4.f90
@@ -1,21 +1,20 @@
 ! { dg-do run }
-! PR 21875 : Test formatted input/output to/from character arrays.
-! This test checks the error checking for non-contiguous character
-! arrays which are not allowed by standard.  Error 13 is
-! ERROR_ARRAY_STRIDE in libgfortran.h
+! PR 24244 : Test formatted input/output to/from character arrays.
+! This test checks array I/O with strides other than 1.
+! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
 program arrayio_4
   implicit none
   integer        :: ierr
   character(12)  :: r(2,3,4) = '0123456789AB'
    
   write(r(::2,:,::1),'(i5)', iostat=ierr) 1,2,3,4,5
-  if (ierr.ne.13) call abort()
+  if (ierr.ne.0) call abort()
 
   write(r(:,:,::2),'(i5)', iostat=ierr) 1,2,3,4,5
-  if (ierr.ne.13) call abort()
+  if (ierr.ne.0) call abort()
 
   write(r(::1,::2,::1),'(i5)', iostat=ierr) 1,2,3,4,5
-  if (ierr.ne.13) call abort()
+  if (ierr.ne.0) call abort()
 
   write(r(::1,::1,::1),'(i5)', iostat=ierr) 1,2,3,4,5
   if (ierr.ne.0) call abort()