gcc/testsuite/gfortran.dg/pr64528.f90

   1 ! PR fortran/64528
   2 ! { dg-do compile }
   3 ! { dg-options "-O -fno-tree-dce -fno-tree-ccp" }
   4
   5 program 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
  16 end program pr64528
  17 subroutine foo(x)
  18   integer, value :: x
  19   x = 11
  20 end subroutine foo