1! { dg-do run } 2! Wide chracter I/O test 1, formatted and mixed kind 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=1) :: thin 8 character(kind=1,len=25) :: buffer 9 wide=k4_"Goodbye!" 10 thin="Hello!" 11 write(buffer, '(a)') wide 12 if (buffer /= "Goodbye!") call abort 13 open(10, form="formatted", access="stream", status="scratch") 14 write(10, '(a)') thin 15 rewind(10) 16 read(10, '(a)') wide 17 if (wide /= k4_"Hello!") call abort 18 write(buffer,*) thin, ">",wide,"<" 19 if (buffer /= " Hello! >Hello! <") call abort 20end program test1 21