diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-07-21 10:05:32 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2008-07-21 10:05:32 +0000 |
| commit | c44109aaf3be31a6816a8a4f3c4454261d8d2622 (patch) | |
| tree | 9f53b6a50b64cf1ac4935ade62445629885b9613 /gcc | |
| parent | 1bb64668d0fbb2abfa3583918a256420028eea30 (diff) | |
| download | gcc-c44109aaf3be31a6816a8a4f3c4454261d8d2622.zip gcc-c44109aaf3be31a6816a8a4f3c4454261d8d2622.tar.gz gcc-c44109aaf3be31a6816a8a4f3c4454261d8d2622.tar.bz2 | |
re PR libfortran/36773 (zero-sized arrays with cshift and eoshift)
2008-07-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/36773
* intrinsics/cshift0.c (cshift0): Return early if size of array
is zero.
* intrinsics/eoshift0.c (eoshift0): Return early if size of
return array is zero.
* intrinsics/eoshift2.c (eoshift2): Likewise.
* m4/eoshift1.m4 (eoshift1): Return early if size of array
is zero.
* m4/eoshift3.m4 (eoshift3): Likewise.
* m4/eoshift2.m4 (eoshift2): Return early if size of return
array is zero.
* m4/eoshift4.m4 (eoshift2): Return early if size of return
array is zero.
* generated/cshift1_16.c: Regenerated.
* generated/cshift1_4.c: Regenerated.
* generated/cshift1_8.c: Regenerated.
* generated/eoshift1_16.c: Regenerated.
* generated/eoshift1_4.c: Regenerated.
* generated/eoshift1_8.c: Regenerated.
* generated/eoshift3_16.c: Regenerated.
* generated/eoshift3_4.c: Regenerated.
* generated/eoshift3_8.c: Regenerated.
2008-07-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR libfortran/36773
* gfortran.dg/zero_sized_5.f90: New test case.
From-SVN: r138027
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/zero_sized_5.f90 | 15 |
2 files changed, 20 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 13f1468..d02787b 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2008-07-21 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR libfortran/36773 + * gfortran.dg/zero_sized_5.f90: New test case. + 2008-07-21 Paolo Carlini <paolo.carlini@oracle.com> PR c++/36870 diff --git a/gcc/testsuite/gfortran.dg/zero_sized_5.f90 b/gcc/testsuite/gfortran.dg/zero_sized_5.f90 new file mode 100644 index 0000000..30ca8bf --- /dev/null +++ b/gcc/testsuite/gfortran.dg/zero_sized_5.f90 @@ -0,0 +1,15 @@ +! { dg-do run } +! These used to segfault. +program main + real, dimension(1,0) :: a, b, c + integer, dimension(0) :: j + a = 0 + c = 0 + b = cshift (a,1) + b = cshift (a,j) + b = eoshift (a,1) + b = eoshift (a,(/1/)) + b = eoshift (a,1,boundary=c(1,:)) + b = eoshift (a, j, boundary=c(1,:)) + +end program main |