1! { dg-do run }
2! { dg-options "-finit-character=89" }
3!
4! PR fortran/51800
5!
6
7subroutine foo(n)
8 character(len=n) :: str
9! print *, str
10 if (str /= repeat ('Y', n)) call abort()
11end subroutine foo
12
13call foo(3)
14call foo(10)
15end
16