PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / intent_optimize_1.f90
blob029557d00c64ec633f305d840f2480bd8f4d6292
1 ! { dg-do compile }
2 ! { dg-options "-O2 -fdump-tree-optimized" }
4 ! Check whether the "does_not_exist" subroutine has been
5 ! optimized away, i.e. check that "foo"'s intent(IN) gets
6 ! honoured.
8 ! PR fortran/43665
10 interface
11 subroutine foo(x)
12 integer, intent(in) :: x
13 end subroutine foo
14 end interface
16 integer :: y
18 y = 5
19 call foo(y)
20 if (y /= 5) call does_not_exist ()
21 end
23 ! { dg-final { scan-tree-dump-times "does_not_exist" 0 "optimized" } }