! { dg-do run { target fd_truncate } }
|
! { dg-do run { target fd_truncate } }
|
! Wide character I/O test 3, unformatted arrays
|
! Wide character I/O test 3, unformatted arrays
|
! Test case developed by Jerry DeLisle
|
! Test case developed by Jerry DeLisle
|
program test1
|
program test1
|
integer, parameter :: k4 = 4
|
integer, parameter :: k4 = 4
|
character(len=10,kind=4) :: wide
|
character(len=10,kind=4) :: wide
|
character(len=10,kind=4), dimension(5,7) :: widearray
|
character(len=10,kind=4), dimension(5,7) :: widearray
|
wide = k4_"abcdefg"
|
wide = k4_"abcdefg"
|
widearray = k4_"1234abcd"
|
widearray = k4_"1234abcd"
|
open(10, form="unformatted", status="scratch")
|
open(10, form="unformatted", status="scratch")
|
write(10) wide
|
write(10) wide
|
rewind(10)
|
rewind(10)
|
wide = "wrong"
|
wide = "wrong"
|
read(10) wide
|
read(10) wide
|
if (wide /= k4_"abcdefg") call abort
|
if (wide /= k4_"abcdefg") call abort
|
rewind(10)
|
rewind(10)
|
write(10) widearray(2:4,3:7)
|
write(10) widearray(2:4,3:7)
|
widearray(2:4,3:7)=""
|
widearray(2:4,3:7)=""
|
rewind(10)
|
rewind(10)
|
read(10) widearray(2:4,3:7)
|
read(10) widearray(2:4,3:7)
|
close(10)
|
close(10)
|
if (any(widearray.ne.k4_"1234abcd")) call abort
|
if (any(widearray.ne.k4_"1234abcd")) call abort
|
end program test1
|
end program test1
|
|
|