URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 338 |
! pr 15113
|
! pr 15113
|
! Ax edit descriptor x larger than destination
|
! Ax edit descriptor x larger than destination
|
! A edit descriptor with no field width segfaults
|
! A edit descriptor with no field width segfaults
|
character*16 C
|
character*16 C
|
character*4 D
|
character*4 D
|
data C / 'ABCDEFGHIJKLMNOP'/
|
data C / 'ABCDEFGHIJKLMNOP'/
|
read(C,'(A7)')D
|
read(C,'(A7)')D
|
if (D.NE.'DEFG') then
|
if (D.NE.'DEFG') then
|
! print*,D
|
! print*,D
|
call abort
|
call abort
|
endif
|
endif
|
read(C,'(A)')D
|
read(C,'(A)')D
|
if (D.NE.'ABCD') then
|
if (D.NE.'ABCD') then
|
! print*,D
|
! print*,D
|
call abort
|
call abort
|
endif
|
endif
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.