URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [der_array_io_3.f90] - Rev 165
Go to most recent revision | Compare with Previous | Blame | View Log
! Test IO of character arrays in derived types.
! { dg-do run }
program main
character*1000 buf1, buf2
type :: foo_type
character(12), dimension(13) :: name = "hello world "
end type foo_type
type (foo_type) :: foo
! foo = foo_type("hello world ")
write (buf1,*) foo
write (buf2,*) (foo%name(i), i=1,13)
if (buf1.ne.buf2) call abort
end program main
Go to most recent revision | Compare with Previous | Blame | View Log