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