1! { dg-do run }
2! PR 52724 - this used to generate a "Bad integer" error.
3program main
4 implicit none
5 integer :: i
6 character(len=100,kind=4) :: buffer, a
7 buffer = 4_"123"
8 read(buffer,*) i
9 write (a,'(I3)') i
10 if (a /= 4_"123") call abort
11end program main
12