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
2010-02-10 Tobias Burnus <burnus@net-b.de>
[pf3gnuchains/gcc-fork.git]
/
gcc
/
testsuite
/
gfortran.dg
/
char_length_12.f90
1
! { dg-do run }
2
3
implicit none
4
character(len=3), dimension(3,3), parameter :: &
5
p = reshape(["xyz", "abc", "mkl", "vpn", "lsd", "epo", "tgv", &
6
"bbc", "wto"], [3,3])
7
character(len=3), dimension(3,3) :: m1
8
9
m1 = p
10
if (any (spread (p, 1, 2) /= spread (m1, 1, 2))) call abort
11
12
end