Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/internal_readwrite_1.f90 @ 118:fd00160c1b76
ifdef TARGET_64BIT
author | mir3636 |
---|---|
date | Tue, 27 Feb 2018 15:01:35 +0900 |
parents | 04ced10e8804 |
children | 84e7813d76e9 |
line wrap: on
line source
! { dg-do run } ! PR 34565 - internal writes with negative strides ! didn't work. program main implicit none integer :: i integer :: lo, up, st character(len=2) :: c (5) integer, dimension(5) :: n c = (/ 'a', 'b', 'c', 'd', 'e' /) write (unit=c(5:1:-2),fmt="(A)") '5','3', '1' write (unit=c(2:4:2),fmt="(A)") '2', '4' read (c(5:1:-1),fmt="(I2)") (n(i), i=5,1,-1) if (any(n /= (/ (i,i=1,5) /))) call abort end program main