blob: f6cca4f73e002e5f62d3fee7fe13293db6b75c2e [file] [log] [blame]
! 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