30 lines
505 B
Plaintext
30 lines
505 B
Plaintext
|
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
|
||
|
|
|