1! { dg-do run { target fd_truncate } } 2! Wide character I/O test 3, unformatted arrays 3! Test case developed by Jerry DeLisle <jvdelisle@gcc.gnu.org> 4program test1 5 integer, parameter :: k4 = 4 6 character(len=10,kind=4) :: wide 7 character(len=10,kind=4), dimension(5,7) :: widearray 8 wide = k4_"abcdefg" 9 widearray = k4_"1234abcd" 10 open(10, form="unformatted", status="scratch") 11 write(10) wide 12 rewind(10) 13 wide = "wrong" 14 read(10) wide 15 if (wide /= k4_"abcdefg") call abort 16 rewind(10) 17 write(10) widearray(2:4,3:7) 18 widearray(2:4,3:7)="" 19 rewind(10) 20 read(10) widearray(2:4,3:7) 21 close(10) 22 if (any(widearray.ne.k4_"1234abcd")) call abort 23end program test1 24