1! PR fortran/64528
2! { dg-do compile }
3! { dg-options "-O -fno-tree-dce -fno-tree-ccp" }
4
5program pr64528
6  interface
7     subroutine foo(x)
8       integer, value :: x
9     end subroutine foo
10  end interface
11  integer :: x
12  x = 10
13  call foo(x)
14  if(x .ne. 10) then
15  endif
16end program pr64528
17subroutine foo(x)
18  integer, value :: x
19  x = 11
20end subroutine foo
21