OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [reshape_rank7.f90] - Blame information for rev 694

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 694 jeremybenn
! { 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

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.