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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [der_array_io_3.f90] - Blame information for rev 774

Go to most recent revision | Details | Compare with Previous | View Log


! Test IO of character arrays in derived types.
! { dg-do run }
! { dg-options "-std=legacy" }
!
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	694	jeremybenn	`! Test IO of character arrays in derived types.`
2			`! { dg-do run }`
3			`! { dg-options "-std=legacy" }`
4			`!`
5			`program main`
6			`character*1000 buf1, buf2`
7			`type :: foo_type`
8			`character(12), dimension(13) :: name = "hello world "`
9			`end type foo_type`
10			`type (foo_type) :: foo`
11			`! foo = foo_type("hello world ")`
12			`write (buf1,*) foo`
13			`write (buf2,*) (foo%name(i), i=1,13)`
14			`if (buf1.ne.buf2) call abort`
15			`end program main`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [der_array_io_3.f90] - Blame information for rev 774