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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-Warray-temporaries" }
 
subroutine bar(a)
  real, dimension(2) :: a
end
 
program main
  integer, parameter :: n=3
  integer :: i
  real, dimension(n) :: a, b
 
  a = 0.2
  i = 2
  a(i:i+1) = a(1:2) ! { dg-warning "Creating array temporary" }
  a = cshift(a,1) ! { dg-warning "Creating array temporary" }
  b = cshift(a,1)
  call bar(a(1:3:2)) ! { dg-warning "Creating array temporary" }
end program main

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-Warray-temporaries" }`
3
4			`subroutine bar(a)`
5			`real, dimension(2) :: a`
6			`end`
7
8			`program main`
9			`integer, parameter :: n=3`
10			`integer :: i`
11			`real, dimension(n) :: a, b`
12
13			`a = 0.2`
14			`i = 2`
15			`a(i:i+1) = a(1:2) ! { dg-warning "Creating array temporary" }`
16			`a = cshift(a,1) ! { dg-warning "Creating array temporary" }`
17			`b = cshift(a,1)`
18			`call bar(a(1:3:2)) ! { dg-warning "Creating array temporary" }`
19			`end program main`

Browse

Tools

Subversion Repositories openrisc

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