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

Subversion Repositories openrisc

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

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


! { dg-do compile }
! { dg-options "-O2 -fdump-tree-optimized" }
! Tests whether volatile really works
! PR fortran/29601
logical, volatile :: t1
logical :: t2
integer :: i
 
t2 = .false.
t1 = .false.
do i = 1, 2
  if(t1) print *, 'VolatileNotOptimizedAway'
  if(t2) print *, 'NonVolatileNotOptimizedAway'
end do
end
! { dg-final { scan-tree-dump "VolatileNotOptimizedAway" "optimized" } } */
! { dg-final { scan-tree-dump-not "NonVolatileNotOptimizedAway" "optimized" } } */
! { dg-final { cleanup-tree-dump "optimized" } } */

Line No.	Rev	Author	Line
1	694	jeremybenn	`! { dg-do compile }`
2			`! { dg-options "-O2 -fdump-tree-optimized" }`
3			`! Tests whether volatile really works`
4			`! PR fortran/29601`
5			`logical, volatile :: t1`
6			`logical :: t2`
7			`integer :: i`
8
9			`t2 = .false.`
10			`t1 = .false.`
11			`do i = 1, 2`
12			`if(t1) print *, 'VolatileNotOptimizedAway'`
13			`if(t2) print *, 'NonVolatileNotOptimizedAway'`
14			`end do`
15			`end`
16			`! { dg-final { scan-tree-dump "VolatileNotOptimizedAway" "optimized" } } */`
17			`! { dg-final { scan-tree-dump-not "NonVolatileNotOptimizedAway" "optimized" } } */`
18			`! { dg-final { cleanup-tree-dump "optimized" } } */`

Browse

Tools

Subversion Repositories openrisc

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