21 lines
659 B
Fortran
21 lines
659 B
Fortran
! { 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!") call abort
|
|
open(10, form="formatted", access="stream", status="scratch")
|
|
write(10, '(a)') thin
|
|
rewind(10)
|
|
read(10, '(a)') wide
|
|
if (wide /= k4_"Hello!") call abort
|
|
write(buffer,*) thin, ">",wide,"<"
|
|
if (buffer /= " Hello! >Hello! <") call abort
|
|
end program test1
|