1! { dg-do run } 2! PR24224 Test formatted input/output to/from character arrays with strides 3! other than 1. Contributed by Jerry DeLisle <jvdelisle@verizon.net>. 4 program arrayio_6 5 implicit none 6 integer :: i(3),j,k(3) 7 character(12) :: r(4,4,4) = '0123456789AB' 8 character(12) :: s(64) 9 equivalence(r,s) 10 11 i = (/(j,j=1,3)/) 12 write(r(1:4:2,2:4:1,3:4:2),'(3(2x,i4/)/3(3x,i6/))') i 13 14 if (s(36).ne.'0123456789AB') STOP 1 15 if (s(37).ne.' 1 ') STOP 2 16 if (s(38).ne.'0123456789AB') STOP 3 17 if (s(39).ne.' 2 ') STOP 4 18 if (s(40).ne.'0123456789AB') STOP 5 19 if (s(41).ne.' 3 ') STOP 6 20 if (s(42).ne.'0123456789AB') STOP 7 21 if (s(43).ne.' ') STOP 8 22 if (s(44).ne.'0123456789AB') STOP 9 23 if (s(45).ne.' ') STOP 10 24 if (s(46).ne.'0123456789AB') STOP 11 25 26 k = i 27 i = 0 28 read(r(1:4:2,2:4:1,3:4:2),'(3(2x,i4/)/3(3x,i6/))') i 29 if (any(i.ne.k)) STOP 12 30 31 end program arrayio_6 32