! pr 15113! Ax edit descriptor x larger than destination! A edit descriptor with no field width segfaultscharacter*16Ccharacter*4Ddata C/'ABCDEFGHIJKLMNOP'/read(C,'(A7)')Dif(D.NE.'DEFG')then! print*,Dcall abortendifread(C,'(A)')Dif(D.NE.'ABCD')then! print*,Dcall abortendifend