blob: f6cca4f73e002e5f62d3fee7fe13293db6b75c2e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
! 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
|
