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

Subversion Repositories openrisc

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

Go to most recent revision | Details | Compare with Previous | View Log


! { dg-do compile }
! { dg-options "-Warray-temporaries" }
! PR 36928 - optimize array interleaving array temporaries
program main
  real, dimension(20) :: a
  read (10) a
  a(2:10:2) = a (1:9:2)
  write (11) a
  read (10) a
  a(2:10:4) = a(1:5:2)
  write (11) a
  read (10) a
  a(2:10:4) = a(5:1:-2)
  write (11) a
end program main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-Warray-temporaries" }`
3			`! PR 36928 - optimize array interleaving array temporaries`
4			`program main`
5			`real, dimension(20) :: a`
6			`read (10) a`
7			`a(2:10:2) = a (1:9:2)`
8			`write (11) a`
9			`read (10) a`
10			`a(2:10:4) = a(1:5:2)`
11			`write (11) a`
12			`read (10) a`
13			`a(2:10:4) = a(5:1:-2)`
14			`write (11) a`
15			`end program main`

Browse

Tools

Subversion Repositories openrisc

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