1! { dg-do compile }
2subroutine foo
3 real :: a
4 a = 1
5 write(*, '(a)', advance=a) "hello world" ! { dg-error "must be of type CHARACTER" }
6end subroutine foo
7subroutine bar
8 write(*, '(a)', advance=5.) "hello world" ! { dg-error "must be of type CHARACTER" }
9end subroutine bar
10