gcc/testsuite/gfortran.dg/volatile4.f90

   1 ! { 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" } } */