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