view gcc/testsuite/gfortran.dg/pr64528.f90 @ 132:d34655255c78

update gcc-8.2
author mir3636
date Thu, 25 Oct 2018 10:21:07 +0900
parents 04ced10e8804
children
line wrap: on
line source

! 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