repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
fix pr/45972
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
char_length_12.f90
blob
f22eb6c7229d1f6120453ae6607c4a5fb6f624cc
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