1! { dg-do compile }
2subroutine foo
3  character(len=5) :: a
4  a = "yes"
5  write(*, '(a)', advance=a) "hello world"
6end subroutine foo
7