5 ! All string arguments to I/O statements shall
6 ! be of default-character type. (Except for the
9 character(len=20, kind=4) :: str1
11 write(99, str1) 'a' ! { dg-error "must be of type default-kind CHARACTER" }
12 read(99, fmt=str1) ! { dg-error "must be of type default-kind CHARACTER" }