1! PR fortran/26246
2! { dg-options "-fdump-tree-original -fno-automatic" }
3! { dg-do compile }
4
5subroutine foo(string, n)
6  implicit none
7  integer :: n
8  character(len=n + 6), intent(in) :: string
9  if (string .eq. 'abc') call abort
10end subroutine foo
11
12! { dg-final { scan-tree-dump-times "static int" 0 "original" } }
13! { dg-final { cleanup-tree-dump "original" } }
14