1! { dg-do compile }
2! { dg-options "-fdump-tree-optimized -O3" }
3!
4! PR fortran/45742
5!
6
7subroutine sub(arg)
8  integer, volatile :: arg
9  if (arg /= arg) call I_dont_exist()
10end
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
17