gcc/testsuite/gfortran.dg/volatile12.f90

   1 ! { dg-do compile }
   2 ! { dg-options "-fdump-tree-optimized -O3" }
   3 !
   4 ! PR fortran/45742
   5 !
   6
   7 subroutine sub(arg)
   8   integer, volatile :: arg
   9   if (arg /= arg) call I_dont_exist()
  10 end
  11
  12 ! { dg-final { scan-tree-dump "integer.kind=.. . volatile arg" "optimized" } }
  13 ! { dg-final { scan-tree-dump-times " =.v. arg;" 2 "optimized" } }
  14 ! { dg-final { scan-tree-dump "i_dont_exist" "optimized" } }
  15 ! { dg-final { cleanup-tree-dump "optimized" } }
  16