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