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