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