gcc/testsuite/gfortran.dg/io_constraints_9.f90

   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 !
   9 character(len=20, kind=4) :: str1
  10
  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" }
  13 end