finalyze moving

2025-03-12 14:28:04 +03:00
parent f840006398
commit 033bbce220
774 changed files with 0 additions and 0 deletions
--- a/tests/sapfor/loops_combiner/test_2.for
+++ b/tests/sapfor/loops_combiner/test_2.for
@@ -0,0 +1,29 @@
+      program loops_combiner_test
+      implicit none
+      parameter (l = 16,m = 6)
+      real :: a(l),b(l),c(l)
+
+! should be combined:
+      do it1 = 1,m
+         do k1 = 1,l
+            a(k1) = it1 + k1
+         enddo
+      enddo 
+
+      do it2 = 1,m
+         c(it2) = it2
+      enddo 
+
+! should be combined:
+      do it3 = 1,l
+         c(it3) = it3
+      enddo 
+
+      do it4 = 1,l
+         do k4 = 1,m
+            a(k4) = it4 + k4
+         enddo
+      enddo 
+
+      end
+