[Bug fortran/52724] Internal read with character(kind=4) data

[tkoenig at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=52724

--- Comment #4 from Thomas Koenig <tkoenig at gcc dot gnu.org> 2012-04-08 08:55:42 UTC ---
Yes, my original test case was bogus.

Slightly reduced test case:

program main
  implicit none
  integer :: i
  character(len=100,kind=4) :: buffer
  buffer = 4_"123"
  read(buffer,*) i
  print *,i
end program main