gcc/testsuite/gfortran.dg/arrayio_4.f90

   1 ! { dg-do run }
   2 ! PR 24244 : Test formatted input/output to/from character arrays.
   3 ! This test checks array I/O with strides other than 1.
   4 ! Contributed by Jerry DeLisle <jvdelisle@verizon.net>.
   5 program arrayio_4
   6   implicit none
   7   integer        :: ierr
   8   character(12)  :: r(2,3,4) = '0123456789AB'
   9
  10   write(r(::2,:,::1),'(i5)', iostat=ierr) 1,2,3,4,5
  11   if (ierr.ne.0) call abort()
  12
  13   write(r(:,:,::2),'(i5)', iostat=ierr) 1,2,3,4,5
  14   if (ierr.ne.0) call abort()
  15
  16   write(r(::1,::2,::1),'(i5)', iostat=ierr) 1,2,3,4,5
  17   if (ierr.ne.0) call abort()
  18
  19   write(r(::1,::1,::1),'(i5)', iostat=ierr) 1,2,3,4,5
  20   if (ierr.ne.0) call abort()
  21 end program arrayio_4
  22