$ cat r1.f90
program main
integer :: a(256), b(2,2,2,2,2,2,2)
do i=1,256
a(i) = i
end do
b = reshape(a(1:256:2), shape(b))
print '(16I4)',b
end program main
$ gfortran r1.f90
$ ./a.out
Segmentation fault
$ cat r2.f90
program main
integer :: a(256), b(2,2,2,2,2,4)
do i=1,256
a(i) = i
end do
b = reshape(a(1:256:2), shape(b))
print '(16I4)',b
end program main
$ gfortran r2.f90
$ ./a.out
1 3 5 7 9 11 13 15 17 19 21 23 25 27 29 31
33 35 37 39 41 43 45 47 49 51 53 55 57 59 61 63
65 67 69 71 73 75 77 79 81 83 85 87 89 91 93 95
97 99 101 103 105 107 109 111 113 115 117 119 121 123 125 127
129 131 133 135 137 139 141 143 145 147 149 151 153 155 157 159
161 163 165 167 169 171 173 175 177 179 181 183 185 187 189 191
193 195 197 199 201 203 205 207 209 211 213 215 217 219 221 223
225 227 229 231 233 235 237 239 241 243 245 247 249 251 253 255
$ gfortran -v
Using built-in specs.
Target: i686-pc-linux-gnu
Configured with: ../gcc-4.1/configure --prefix=/home/ig25
--enable-languages=c,f95
Thread model: posix
gcc version 4.1.0 20050417 (experimental)
--
Summary: Segfault in reshape with rank 7
Product: gcc
Version: 4.1.0
Status: UNCONFIRMED
Severity: normal
Priority: P2
Component: libfortran
AssignedTo: tkoenig at gcc dot gnu dot org
ReportedBy: tkoenig at gcc dot gnu dot org
CC: gcc-bugs at gcc dot gnu dot org
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=21075
