Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

finalyze moving

Browse Source
This commit is contained in:
Alexander
2025-03-12 14:28:04 +03:00
parent f840006398
commit 033bbce220
774 changed files with 0 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
tests/sapfor/check_args_decl/arg_decl_test_err1.f Normal file
View File

@@ -0,0 +1,27 @@
subroutine A(i1)
INTEGER i1
i1 = i1 + 1
END
subroutine B(i1)
i1 = i1 + 1
END
PROGRAM PAR_REG_TEST
INTEGER i1
INTEGER summ
summ = 0
do i1 = 1, 20
call A(summ)
enddo
write(*,*) 'summ = ', summ
summ = 0
!$SPF PARALLEL_REG reg2
do i1 = 1, 20
call B(summ)
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
END

25
tests/sapfor/check_args_decl/arg_decl_test_err2.f Normal file
View File

@@ -0,0 +1,25 @@
subroutine A(i1)
i1 = i1 + 1
END
PROGRAM PAR_REG_TEST
INTEGER i1
INTEGER summ
summ = 0
!$SPF PARALLEL_REG reg1
do i1 = 1, 20
call A(summ)
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
summ = 0
!$SPF PARALLEL_REG reg2
do i1 = 1, 20
call A(summ)
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
END

41
tests/sapfor/check_args_decl/arg_decl_test_err3.f Normal file
View File

@@ -0,0 +1,41 @@
subroutine A(array, summ, L, idx)
INTEGER summ, array(L)
summ = summ + array(idx)
END
subroutine B(array, summ, L, idx)
INTEGER summ, array(L)
summ = summ + array(idx)
END
PROGRAM PAR_REG_TEST
PARAMETER(L=20)
INTEGER i1, array(L)
INTEGER summ
do i1 = 1, 20
array(i1) = 2
enddo
summ = 0
!$SPF PARALLEL_REG reg1
do i1 = 1, 20
call A(array, summ, L, i1)
array(i1) = array(i1) + 1
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call B(array, summ, L, i1)
array(i1) = array(i1) + 2
enddo
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call A(array, summ, L, i1)
enddo
write(*,*) 'summ = ', summ
END

26
tests/sapfor/check_args_decl/arg_decl_test_ok1.f Normal file
View File

@@ -0,0 +1,26 @@
subroutine A(i1)
INTEGER i1
i1 = i1 + 1
END
subroutine B(i1)
INTEGER i1
i1 = i1 + 1
END
PROGRAM PAR_REG_TEST
INTEGER i1
INTEGER summ
summ = 0
do i1 = 1, 20
call A(summ)
enddo
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call B(summ)
enddo
write(*,*) 'summ = ', summ
END

26
tests/sapfor/check_args_decl/arg_decl_test_ok2.f Normal file
View File

@@ -0,0 +1,26 @@
subroutine A(i1)
INTEGER i1
i1 = i1 + 1
END
PROGRAM PAR_REG_TEST
INTEGER i1
INTEGER summ
summ = 0
!$SPF PARALLEL_REG reg1
do i1 = 1, 20
call A(summ)
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
summ = 0
!$SPF PARALLEL_REG reg2
do i1 = 1, 20
call A(summ)
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
END

41
tests/sapfor/check_args_decl/arg_decl_test_ok3.f Normal file
View File

@@ -0,0 +1,41 @@
subroutine A(array, summ, L, idx)
INTEGER summ, array(L), idx, L
summ = summ + array(idx)
END
subroutine B(array, summ, L, idx)
INTEGER summ, array(L), idx, L
summ = summ + array(idx)
END
PROGRAM PAR_REG_TEST
PARAMETER(L=20)
INTEGER i1, array(L)
INTEGER summ
do i1 = 1, 20
array(i1) = 2
enddo
summ = 0
!$SPF PARALLEL_REG reg1
do i1 = 1, 20
call A(array, summ, L, i1)
array(i1) = array(i1) + 1
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call B(array, summ, L, i1)
array(i1) = array(i1) + 2
enddo
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call A(array, summ, L, i1)
enddo
write(*,*) 'summ = ', summ
END

25
tests/sapfor/check_args_decl/arg_decl_test_wr1.f Normal file
View File

@@ -0,0 +1,25 @@
subroutine A(i1)
INTEGER i1
i1 = i1 + 1
END
subroutine B(i1)
i1 = i1 + 1
END
PROGRAM PAR_REG_TEST
INTEGER i1
INTEGER summ
summ = 0
do i1 = 1, 20
call A(summ)
enddo
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call B(summ)
enddo
write(*,*) 'summ = ', summ
END

41
tests/sapfor/check_args_decl/arg_decl_test_wr3.f Normal file
View File

@@ -0,0 +1,41 @@
subroutine A(array, summ, L, idx)
INTEGER summ, array(L), idx
summ = summ + array(idx)
END
subroutine B(array, summ, L, idx)
INTEGER summ, array(L)
summ = summ + array(idx)
END
PROGRAM PAR_REG_TEST
PARAMETER(L=20)
INTEGER i1, array(L)
INTEGER summ
do i1 = 1, 20
array(i1) = 2
enddo
summ = 0
!$SPF PARALLEL_REG reg1
do i1 = 1, 20
call A(array, summ, L, i1)
array(i1) = array(i1) + 1
enddo
!$SPF END PARALLEL_REG
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call B(array, summ, L, i1)
array(i1) = array(i1) + 2
enddo
write(*,*) 'summ = ', summ
summ = 0
do i1 = 1, 20
call A(array, summ, L, i1)
enddo
write(*,*) 'summ = ', summ
END