1! { dg-do compile }
2!
3! PR fortran/87923
4!
5program p
6   write (1, blank=char(1000,4)) ! { dg-error "must be a character string of default kind" }
7   write (1, delim=char(1000,4)) ! { dg-error "must be a character string of default kind" }
8   write (1, pad=char(1000,4)) ! { dg-error "must be a character string of default kind" }
9   write (1, round=char(1000,4)) ! { dg-error "must be a character string of default kind" }
10   write (1, sign=char(1000,4)) ! { dg-error "must be a character string of default kind" }
11end
12