URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [internal_readwrite_1.f90] - Blame information for rev 704

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do run }`
2			`! PR 34565 - internal writes with negative strides`
3			`! didn't work.`
4			`program main`
5			`implicit none`
6			`integer :: i`
7			`integer :: lo, up, st`
8			`character(len=2) :: c (5)`
9			`integer, dimension(5) :: n`
10			`c = (/ 'a', 'b', 'c', 'd', 'e' /)`
11			`write (unit=c(5:1:-2),fmt="(A)") '5','3', '1'`
12			`write (unit=c(2:4:2),fmt="(A)") '2', '4'`
13			`read (c(5:1:-1),fmt="(I2)") (n(i), i=5,1,-1)`
14			`if (any(n /= (/ (i,i=1,5) /))) call abort`
15			`end program main`