mirror of
https://github.com/autc04/Retro68.git
synced 2024-06-28 11:30:19 +00:00
21 lines
363 B
Fortran
21 lines
363 B
Fortran
! 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
|