URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
! { dg-do run }
|
! { dg-do run }
|
! PR 24862: IO for arrays of derived type handled incorrectly.
|
! PR 24862: IO for arrays of derived type handled incorrectly.
|
program arrayio_derived_1
|
program arrayio_derived_1
|
implicit none
|
implicit none
|
type tp
|
type tp
|
integer :: i
|
integer :: i
|
character(len=1) :: c
|
character(len=1) :: c
|
end type tp
|
end type tp
|
type(tp) :: x(5)
|
type(tp) :: x(5)
|
character(len=100) :: a
|
character(len=100) :: a
|
integer :: i, b(5)
|
integer :: i, b(5)
|
|
|
x%i = 256
|
x%i = 256
|
x%c = "q"
|
x%c = "q"
|
|
|
write(a, *) x%i
|
write(a, *) x%i
|
read(a, *) b
|
read(a, *) b
|
do i = 1, 5
|
do i = 1, 5
|
if (b(i) /= 256) then
|
if (b(i) /= 256) then
|
call abort ()
|
call abort ()
|
end if
|
end if
|
end do
|
end do
|
write(a, *) x ! Just test that the library doesn't abort.
|
write(a, *) x ! Just test that the library doesn't abort.
|
write(a, *) x(:)%i
|
write(a, *) x(:)%i
|
b = 0
|
b = 0
|
read(a, *) b
|
read(a, *) b
|
do i = 1, 5
|
do i = 1, 5
|
if (b(i) /= 256) then
|
if (b(i) /= 256) then
|
call abort ()
|
call abort ()
|
end if
|
end if
|
end do
|
end do
|
|
|
end program arrayio_derived_1
|
end program arrayio_derived_1
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.