1! { dg-do compile } 2! 3! PR fortran/48972 4! 5! All string arguments to I/O statements shall 6! be of default-character type. (Except for the 7! internal unit.) 8! 9character(len=20, kind=4) :: str1 10 11write(99, str1) 'a' ! { dg-error "must be of type default-kind CHARACTER" } 12read(99, fmt=str1) ! { dg-error "must be of type default-kind CHARACTER" } 13end 14