! PR fortran/64528
! { dg-do compile }
! { dg-options "-O -fno-tree-dce -fno-tree-ccp" }

program pr64528
  interface
     subroutine foo(x)
       integer, value :: x
     end subroutine foo
  end interface
  integer :: x
  x = 10
  call foo(x)
  if(x .ne. 10) then
  endif
end program pr64528
subroutine foo(x)
  integer, value :: x
  x = 11
end subroutine foo