Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/widechar_IO_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
line wrap: on
line source
! { dg-do run } ! Wide chracter I/O test 1, formatted and mixed kind ! 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=1) :: thin character(kind=1,len=25) :: buffer wide=k4_"Goodbye!" thin="Hello!" write(buffer, '(a)') wide if (buffer /= "Goodbye!") STOP 1 open(10, form="formatted", access="stream", status="scratch") write(10, '(a)') thin rewind(10) read(10, '(a)') wide if (wide /= k4_"Hello!") STOP 2 write(buffer,*) thin, ">",wide,"<" if (buffer /= " Hello! >Hello! <") STOP 3 end program test1