blob: d551fa02a0a7b1c5b8a27e27b81327e151b8e090 [file] [log] [blame]
! PR fortran/26246
! { dg-options "-fdump-tree-original -fno-automatic" }
! { dg-do compile }
subroutine foo(string, n)
implicit none
integer :: n
character(len=n + 6), intent(in) :: string
if (string .eq. 'abc') STOP 1
end subroutine foo
! { dg-final { scan-tree-dump-times "static int" 0 "original" } }