gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/a_edit_1.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

! 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