1! { dg-do run }
2! { dg-shouldfail "Compile-time specifier checking" }
3! Check keyword checking for specifiers
4! PR fortran/29452
5program test
6  implicit none
7  character(len=5) :: str
8  str = 'yes'
9  write(*,'(a)',advance=str) ''
10  str = 'no'
11  write(*,'(a)',advance=str) ''
12  str = 'NOT'
13  write(*,'(a)',advance=str) ''
14end program test
15! { dg-output "At line 13 of file.*" }
16! { dg-output "Bad ADVANCE parameter in data transfer statement" }
17