1! pr 15113
2! Ax edit descriptor x larger than destination
3! A edit descriptor with no field width segfaults
4       character*16 C
5       character*4 D
6       data C / 'ABCDEFGHIJKLMNOP'/
7       read(C,'(A7)')D
8       if (D.NE.'DEFG') then
9!         print*,D
10          call abort
11       endif
12       read(C,'(A)')D
13       if (D.NE.'ABCD') then
14!         print*,D
15          call abort
16       endif
17       end
18