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