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