diff options
| author | Thomas Koenig <tkoenig@gcc.gnu.org> | 2010-10-21 12:25:12 +0000 |
|---|---|---|
| committer | Thomas Koenig <tkoenig@gcc.gnu.org> | 2010-10-21 12:25:12 +0000 |
| commit | 3ba7edcfcccc8c37983e89ee9d80287e6e3bb0f4 (patch) | |
| tree | 1e94c7cd4fa400c87e7f43094060b274a34ad669 /gcc | |
| parent | 837c4b78f697de3a047f6e6dba919c02fd769809 (diff) | |
| download | gcc-3ba7edcfcccc8c37983e89ee9d80287e6e3bb0f4.zip gcc-3ba7edcfcccc8c37983e89ee9d80287e6e3bb0f4.tar.gz gcc-3ba7edcfcccc8c37983e89ee9d80287e6e3bb0f4.tar.bz2 | |
re PR fortran/46007 (wrong code for SHAPE in a scalarized loop)
2010-10-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/46007
* m4/shape.m4 (shape_'rtype_kind`): Use variable for rank.
Allocate return array if unallocated.
* generated/shape_i4.c: Regenerated.
* generated/shape_i8.c: Regenerated.
* generated/shape_i16.c: Regenerated.
2010-10-21 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/46007
* gfortran.dg/shape_5.f90: New test case.
From-SVN: r165770
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/shape_5.f90 | 8 |
2 files changed, 13 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 51877d1..b4f914e 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2010-10-21 Thomas Koenig <tkoenig@gcc.gnu.org> + + PR fortran/46007 + * gfortran.dg/shape_5.f90: New test case. + 2010-10-21 Janus Weil <janus@gcc.gnu.org> PR fortran/46060 diff --git a/gcc/testsuite/gfortran.dg/shape_5.f90 b/gcc/testsuite/gfortran.dg/shape_5.f90 new file mode 100644 index 0000000..ed128bc --- /dev/null +++ b/gcc/testsuite/gfortran.dg/shape_5.f90 @@ -0,0 +1,8 @@ +! { dg-do run } +! PR 40067 - this used to segfault on an unallocated return array. + integer, dimension(10) :: int1d + integer, dimension(:), pointer :: int1d_retrieved + + allocate(int1d_retrieved(10)) + if (any(shape(int1d_retrieved) /= shape(INT1D))) call abort() + end |