blob: 029557d00c64ec633f305d840f2480bd8f4d6292 [file] [log] [blame]
! { dg-do compile }
! { dg-options "-O2 -fdump-tree-optimized" }
!
! Check whether the "does_not_exist" subroutine has been
! optimized away, i.e. check that "foo"'s intent(IN) gets
! honoured.
!
! PR fortran/43665
!
interface
subroutine foo(x)
integer, intent(in) :: x
end subroutine foo
end interface
integer :: y
y = 5
call foo(y)
if (y /= 5) call does_not_exist ()
end
! { dg-final { scan-tree-dump-times "does_not_exist" 0 "optimized" } }