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_1.for
+++ b/tests/sapfor/loops_combiner/test_1.for
@@ -0,0 +1,39 @@
+      program loops_combiner_test
+      implicit none
+      parameter (l = 16,m = 6)
+      real :: a(l),b(l),c(l)
+
+      do it1 = 1,m
+         do k1 = 1,l
+            do p1 = 1, l + m
+               a(k1) = it1 + k1 + p1
+            enddo
+         enddo
+         do k1_2 = 1,l
+            do p1_2 = 1, l + m
+               b(k1_2) = it1 + k1_2 - p1_2
+            enddo
+         enddo
+      enddo 
+
+      do it2 = 1,m
+         do  k2 = 1,l
+            c(k2) = k2 - it2
+         enddo  
+      enddo 
+
+      do it3 = 1,m
+         do k3 = 1,l
+            do p3 = 1, l + m
+               a(k3) = it3 + k3 * p3
+            enddo
+         enddo
+         do k3_2 = 1,l
+            do p3_2 = 1, l + m
+               b(k3_2) = it3 + k3_2 / p3_2
+            enddo
+         enddo
+      enddo 
+
+      end
+