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
PR target/83368
[official-gcc.git]
/
gcc
/
testsuite
/
gfortran.dg
/
in_pack_rank7.f90
blob
aa6286689c3cd6d10eb1af9909a921aabcf7205c
1
! { dg-do run }
2
! PR 21354: Rank 7 was not handled correctly by many library
3
! functions, including in_pack.
4
program
main
5
real
,
dimension
(
2
,
2
,
2
,
2
,
2
,
2
,
2
)::
a
6
a
=
1.0
7
call
foo
(
a
(
2
:
1
:-
1
,:,:,:,:,:,:))
8
end program
main
9
10
subroutine
foo
(
a
)
11
real
,
dimension
(
2
,
2
,
2
,
2
,
2
,
2
,
2
)::
a
12
end subroutine
foo