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