OSDN Git Service
(root)
/
pf3gnuchains
/
gcc-fork.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
fortran/
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
der_array_io_3.f90
1
! 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