2 ! { dg-shouldfail "Compile-time specifier checking" }
3 ! Check keyword checking for specifiers
7 character(len=5) :: str
9 write(*,'(a)',advance=str) ''
11 write(*,'(a)',advance=str) ''
13 write(*,'(a)',advance=str) ''
15 ! { dg-output "At line 13 of file.*" }
16 ! { dg-output "Bad ADVANCE parameter in data transfer statement" }