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