Commit 8583a512 by Steven G. Kargl

re PR fortran/30073 (Array out of bounds gives name of RHS array not LHS array)

2010-04-24  Steven G. Kargl  <kargl@gcc.gnu.org>

        PR fortran/30073
        PR fortran/43793
        * trans-array.c (gfc_trans_array_bound_check): Use TREE_CODE instead
        of mucking with a tree directly.

2010-04-24  Steven G. Kargl  <kargl@gcc.gnu.org>

        PR fortran/30073
        PR fortran/43793
        gfortran.dg/pr43793.f90: New test.

From-SVN: r158692
parent 423b2799
2010-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/30073
PR fortran/43793
* trans-array.c (gfc_trans_array_bound_check): Use TREE_CODE instead
of mucking with a tree directly.
2010-04-24 Jerry DeLisle <jvdelisle@gcc.gnu.org> 2010-04-24 Jerry DeLisle <jvdelisle@gcc.gnu.org>
PR fortran/43832 PR fortran/43832
......
...@@ -2336,7 +2336,7 @@ gfc_trans_array_bound_check (gfc_se * se, tree descriptor, tree index, int n, ...@@ -2336,7 +2336,7 @@ gfc_trans_array_bound_check (gfc_se * se, tree descriptor, tree index, int n,
name = "unnamed constant"; name = "unnamed constant";
} }
if (descriptor->base.code != COMPONENT_REF) if (TREE_CODE (descriptor) == VAR_DECL)
name = IDENTIFIER_POINTER (DECL_NAME (descriptor)); name = IDENTIFIER_POINTER (DECL_NAME (descriptor));
/* If upper bound is present, include both bounds in the error message. */ /* If upper bound is present, include both bounds in the error message. */
......
2010-04-24 Steven G. Kargl <kargl@gcc.gnu.org>
PR fortran/30073
PR fortran/43793
gfortran.dg/pr43793.f90: New test.
2010-04-24 Bernd Schmidt <bernds@codesourcery.com> 2010-04-24 Bernd Schmidt <bernds@codesourcery.com>
PR tree-optimization/41442 PR tree-optimization/41442
......
! { dg-do compile }
!
! PR fortran/30073
! PR fortran/43793
!
! Original code by Joost VandeVondele
! Reduced and corrected code by Steven G. Kargl
!
module fft_tools
implicit none
integer, parameter :: lp = 8
contains
subroutine sparse_alltoall (rs, rq, rcount)
complex(kind=lp), dimension(:, :), pointer :: rs, rq
integer, dimension(:) :: rcount
integer :: pos
pos = 1
if (rcount(pos) /= 0) then
rq(1:rcount(pos),pos) = rs(1:rcount(pos),pos)
end if
end subroutine sparse_alltoall
end module fft_tools
! { dg-final { cleanup-modules "fft_tools" } }
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment