@@ -1,5 +1,12 @@
2011-01-19 Sebastian Pop <sebastian.pop@amd.com>
+ * graphite-sese-to-poly.c (new_pbb_from_pbb): Only copy PBB_DOMAIN
+ when it is initialized.
+
+ * gfortran.dg/graphite/id-23.f: New.
+
+2011-01-19 Sebastian Pop <sebastian.pop@amd.com>
+
* graphite-scop-detection.c (stmt_has_simple_data_refs_p): Update
call to graphite_find_data_references_in_stmt.
* graphite-sese-to-poly.c (outermost_loop_in_sese_1): New.
@@ -2152,9 +2152,11 @@ new_pbb_from_pbb (scop_p scop, poly_bb_p pbb, basic_block bb)
if (VEC_index (poly_bb_p, SCOP_BBS (scop), index) == pbb)
break;
+ if (PBB_DOMAIN (pbb))
+ ppl_new_Pointset_Powerset_C_Polyhedron_from_Pointset_Powerset_C_Polyhedron
+ (&PBB_DOMAIN (pbb1), PBB_DOMAIN (pbb));
+
GBB_PBB (gbb1) = pbb1;
- ppl_new_Pointset_Powerset_C_Polyhedron_from_Pointset_Powerset_C_Polyhedron
- (&PBB_DOMAIN (pbb1), PBB_DOMAIN (pbb));
GBB_CONDITIONS (gbb1) = VEC_copy (gimple, heap, GBB_CONDITIONS (gbb));
GBB_CONDITION_CASES (gbb1) = VEC_copy (gimple, heap, GBB_CONDITION_CASES (gbb));
VEC_safe_insert (poly_bb_p, heap, SCOP_BBS (scop), index + 1, pbb1);
new file mode 100644
@@ -0,0 +1,13 @@
+ SUBROUTINE CAMB(RX2,RTX,NUM)
+ DIMENSION RX2(NUM,NUM),RTX(NUM,NUM)
+ DO I=1,NUM
+ DO J=1,I
+ DO M=1,NUM
+ RX2(I,J)=RX2(I,J)+RTX(M,I)
+ END DO
+ END DO
+ END DO
+ IF (RX2(I,1).LE.EIGCT2) THEN
+ RTX(I,1)=4.0D+00
+ END IF
+ END