gcc-4.9/gcc/testsuite/gfortran.dg/volatile12.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

! { dg-do compile }
! { dg-options "-fdump-tree-optimized -O3" }
!
! PR fortran/45742
!

subroutine sub(arg)
  integer, volatile :: arg
  if (arg /= arg) call I_dont_exist()
end

! { dg-final { scan-tree-dump "integer.kind=.. . volatile arg" "optimized" } }
! { dg-final { scan-tree-dump-times " =.v. arg;" 2 "optimized" } }
! { dg-final { scan-tree-dump "i_dont_exist" "optimized" } }
! { dg-final { cleanup-tree-dump "optimized" } }