diff options
| author | Tobias Burnus <burnus@net-b.de> | 2011-07-17 16:52:46 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2011-07-17 16:52:46 +0200 |
| commit | 73cd74f8e7a9f2c7b6fe38c0b76179f89c363f37 (patch) | |
| tree | e50271211591abb34e16bb9d7e4783aa69621d16 | |
| parent | 32c87d63d20a2fe4e5a510e058b5f5a6ebf82572 (diff) | |
| download | gcc-73cd74f8e7a9f2c7b6fe38c0b76179f89c363f37.zip gcc-73cd74f8e7a9f2c7b6fe38c0b76179f89c363f37.tar.gz gcc-73cd74f8e7a9f2c7b6fe38c0b76179f89c363f37.tar.bz2 | |
re PR fortran/49624 (ICE with pointer-bound remapping)
2011-07-17 Tobias Burnus <burnus@net-b.de>
PR fortran/49624
* expr.c (gfc_check_pointer_assign): Fix checking for invalid
pointer bounds.
2011-07-17 Tobias Burnus <burnus@net-b.de>
PR fortran/49624
* gfortran.dg/pointer_remapping_7.f90: New.
From-SVN: r176370
| -rw-r--r-- | gcc/fortran/ChangeLog | 6 | ||||
| -rw-r--r-- | gcc/fortran/expr.c | 3 | ||||
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pointer_remapping_7.f90 | 8 |
4 files changed, 21 insertions, 1 deletions
diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index 4321c2f..19339a6 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,9 @@ +2011-07-17 Tobias Burnus <burnus@net-b.de> + + PR fortran/49624 + * expr.c (gfc_check_pointer_assign): Fix checking for invalid + pointer bounds. + 2011-07-16 Tobias Burnus <burnus@net-b.de> * expr.c (gfc_ref_this_image): New function. diff --git a/gcc/fortran/expr.c b/gcc/fortran/expr.c index 3bf1e94..b8eb555 100644 --- a/gcc/fortran/expr.c +++ b/gcc/fortran/expr.c @@ -3286,7 +3286,8 @@ gfc_check_pointer_assign (gfc_expr *lvalue, gfc_expr *rvalue) upper bounds are present, we may do rank remapping. */ for (dim = 0; dim < ref->u.ar.dimen; ++dim) { - if (!ref->u.ar.start[dim]) + if (!ref->u.ar.start[dim] + || ref->u.ar.dimen_type[dim] != DIMEN_RANGE) { gfc_error ("Lower bound has to be present at %L", &lvalue->where); diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ffecc48..6abed53 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2011-07-17 Tobias Burnus <burnus@net-b.de> + + PR fortran/49624 + * gfortran.dg/pointer_remapping_7.f90: New. + 2011-07-16 Jason Merrill <jason@redhat.com> * lib/prune.exp (prune_gcc_output): Prune "In substitution" too. diff --git a/gcc/testsuite/gfortran.dg/pointer_remapping_7.f90 b/gcc/testsuite/gfortran.dg/pointer_remapping_7.f90 new file mode 100644 index 0000000..39126ba --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pointer_remapping_7.f90 @@ -0,0 +1,8 @@ +! { dg-do compile } +! +! PR fortran/49624 +! + integer, target :: A(100) + integer,pointer :: P(:,:) + p(10,1:) => A ! { dg-error "Lower bound has to be present" } + end |