gomp-20050608-branch/gcc/testsuite/gfortran.fortran-torture/execute/a_edit_1.f90

   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