a_edit_1.f90

linux下编程用 编译软件

! 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
          call abort
       endif
       read(C,'(A)')D
       if (D.NE.'ABCD') then
!         print*,D
          call abort
       endif
       end