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
/
reshape_rank7.f90
1
! { dg-do run }
2
! PR 21075: Reshape with rank 7 used to segfault.
3
program main
4
integer :: a(256), b(2,2,2,2,2,2,2)
5
do i=1,256
6
a(i) = i
7
end do
8
b = reshape(a(1:256:2), shape(b))
9
do i1=1,2
10
do i2=1,2
11
do i3=1,2
12
do i4=1,2
13
do i5=1,2
14
do i6=1,2
15
do i7=1,2
16
if (b(i1,i2,i3,i4,i5,i6,i7) /= &
17
2*((i1-1)+(i2-1)*2+(i3-1)*4+(i4-1)*8+&
18
(i5-1)*16+(i6-1)*32+(i7-1)*64)+1) &
19
call abort
20
end do
21
end do
22
end do
23
end do
24
end do
25
end do
26
end do
27
end program main