URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [der_array_io_3.f90] - Blame information for rev 853

Go to most recent revision | Details | Compare with Previous | 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

Line No.	Rev	Author	Line
1	149	jeremybenn	`! Test IO of character arrays in derived types.`
2			`! { dg-do run }`
3			`program main`
4			`character*1000 buf1, buf2`
5			`type :: foo_type`
6			`character(12), dimension(13) :: name = "hello world "`
7			`end type foo_type`
8			`type (foo_type) :: foo`
9			`! foo = foo_type("hello world ")`
10			`write (buf1,*) foo`
11			`write (buf2,*) (foo%name(i), i=1,13)`
12			`if (buf1.ne.buf2) call abort`
13			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [gfortran.dg/] [der_array_io_3.f90] - Blame information for rev 853