comparison gcc/testsuite/gfortran.dg/pr64528.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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