mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
16 lines
387 B
Fortran
16 lines
387 B
Fortran
! { 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" } }
|
|
|