Remove profitability check

Co-Authored-By: Revital Eres <eres@il.ibm.com>

From-SVN: r127293

gcc/ChangeLog

+2007-08-08  Vladimir Yanovsky  <yanov@il.ibm.com>
+            Revital Eres  <eres@il.ibm.com>
+
+	* ddg.c (print_ddg): Add dump information.
+	* modulo-sched.c (print_node_sched_params): Add parameter and
+	verbosity.
+	(calculate_maxii): Remove function.
+	(undo_generate_reg_moves): Likewise.
+	(undo_permute_partial_schedule): Likewise.
+	(kernel_number_of_cycles): Likewise.
+	(MAXII_FACTOR): New definition to calculate the upper bound of II.
+	(sms_schedule): Use it.  Remove profitability checks.
+	(sms_schedule_by_order): Fix order of nodes within the cycle.
+
 2007-08-08  Samuel Thibault  <samuel.thibault@ens-lyon.org>
 
 	* gcc/config/i386/gnu.h (STARTFILE_SPEC): Use gcrt0.o in profile mode, add

gcc/ddg.c

@@ -568,6 +568,7 @@ print_ddg (FILE *file, ddg_ptr g)
     {
       ddg_edge_ptr e;
 
+      fprintf (file, "Node num: %d\n", g->nodes[i].cuid);
       print_rtl_single (file, g->nodes[i].insn);
       fprintf (file, "OUT ARCS: ");
       for (e = g->nodes[i].out; e; e = e->next_out)

gcc/testsuite/ChangeLog

+2007-08-08  Vladimir Yanovsky  <yanov@il.ibm.com>
+            Revital Eres  <eres@il.ibm.com>
+ 
+	* gfortran.dg/sms-1.f90: Add comment.
+	* gfortran.dg/sms-2.f90: New.
+
 2007-08-07  Ian Lance Taylor  <iant@google.com>
 
 	* gcc.dg/instrument-1.c: New test.

gcc/testsuite/gfortran.dg/sms-1.f90

 ! { dg-do run }
-! { dg-options "-O2 -fmodulo-sched" } 
+! { dg-options "-O2 -fmodulo-sched" }
+! This testcase related to INC instruction which is
+! currently not supported in SMS. 
 program main
   integer (kind = 8) :: i, l8, u8, step8
   integer (kind = 4) :: l4, step4

gcc/testsuite/gfortran.dg/sms-2.f90

+! { dg-do run }
+! { dg-options "-O2 -fmodulo-sched" }
+! This testcase related to wrong order within a cycle fix.
+!
+program foo 
+  real, dimension (5, 5, 5, 5) :: a
+
+  a (:, :, :,  :)  = 4
+  a (:, 2, :, 4) = 10
+  a (:, 2, :, 1) = 0
+
+  forall (i = 1:5, i == 3) 
+     a(i, i, i, i) = -5
+   end forall
+
+  if (sum (a) .ne. 2541.0) call abort ()
+end
+
+