blob: 55a6f3cdf2c1e1643d5e6c6d72a285b5d225da37 (
plain)
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
|