blob: e80d9276d8aa84f52bc79aad2cf9e8705d17411f [file] [log] [blame]
! pr 15113
! Ax edit descriptor x larger than destination
! A edit descriptor with no field width segfaults
character*16 C
character*4 D
data C / 'ABCDEFGHIJKLMNOP'/
read(C,'(A7)')D
if (D.NE.'DEFG') then
! print*,D
STOP 1
endif
read(C,'(A)')D
if (D.NE.'ABCD') then
! print*,D
STOP 2
endif
end