OSDN Git Service

8de143de60603be0d5a71db0b075ad822c3552fe
[pf3gnuchains/gcc-fork.git] / 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 "original" } }
16