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