! 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 |