[Bug libfortran/21354] New: Rank 7 not handled correctly

[tkoenig at gcc dot gnu dot org]

There are numerous places in the library where rank 7
arrays are not handled correctly.  This affects, for example,
in_pack:

$ cat re.f90
program main
  real, dimension (2,2,2,2,2,2,2):: a
  a = 1.0
  call foo(a(2:1:-1,:,:,:,:,:,:))
end program main

subroutine foo(a)
  real, dimension (2,2,2,2,2,2,2):: a
  print *,a
end subroutine foo
$ gfortran re.f90
$ ./a.out
Segmentation fault
$ gfortran -v
Using built-in specs.
Target: ia64-unknown-linux-gnu
Configured with: ../gcc-4.1-20050501/configure --prefix=/home/zfkts --enable-
languages=c,f95
Thread model: posix
gcc version 4.1.0 20050501 (experimental)

plus a whole lot of other intrinsics.

The solution is fairly simple:  All intermediate array declarations
in the library like 

  index_type rstride[GFC_MAX_DIMENSIONS - 1];

need to be changed to

  index_type rstride[GFC_MAX_DIMENSIONS];

-- 
           Summary: Rank 7 not handled correctly
           Product: gcc
           Version: 4.1.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P2
         Component: libfortran
        AssignedTo: unassigned 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=21354