+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>
PR fortran/43832
name = "unnamed constant";
}
- if (descriptor->base.code != COMPONENT_REF)
+ if (TREE_CODE (descriptor) == VAR_DECL)
name = IDENTIFIER_POINTER (DECL_NAME (descriptor));
/* 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>
PR tree-optimization/41442
--- /dev/null
+! { 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" } }