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

25
tests/sapfor/PRINT_PAR_REGIONS_ERRORS/entry_err1.f Normal file
View File

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

30
tests/sapfor/PRINT_PAR_REGIONS_ERRORS/entry_err2.f Normal file
View File

@@ -0,0 +1,30 @@
subroutine C(array, summ, L, idx)
INTEGER summ, array(L), idx
entry reg(array, summ, L, idx)
summ = summ + array(idx)
end
subroutine A(array, summ, L, idx)
INTEGER summ, array(L), idx
!$SPF PARALLEL_REG reg1
call C(array, summ, L, idx)
!$SPF END PARALLEL_REG
END
PROGRAM ENTRY_TEST
PARAMETER(L=20)
INTEGER i1, array(L)
INTEGER summ
do i1 = 1, 20
array(i1) = 2
enddo
summ = 0
do i1 = 1, 20
call A(array, summ, L, i1)
call reg(array, summ, L, i1)
array(i1) = array(i1) + 1
enddo
write(*,*) 'summ = ', summ
END

26
tests/sapfor/PRINT_PAR_REGIONS_ERRORS/etnry_ok1.f Normal file
View File

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

29
tests/sapfor/PRINT_PAR_REGIONS_ERRORS/etnry_ok2.f Normal file
View File

@@ -0,0 +1,29 @@
subroutine C(array, summ, L, idx)
INTEGER summ, array(L), idx
entry reg(array, summ, L, idx)
summ = summ + array(idx)
end
subroutine A(array, summ, L, idx)
INTEGER summ, array(L), idx
!$SPF PARALLEL_REG reg1
call C(array, summ, L, idx)
!$SPF END PARALLEL_REG
END
PROGRAM ENTRY_TEST
PARAMETER(L=20)
INTEGER i1, array(L)
INTEGER summ
do i1 = 1, 20
array(i1) = 2
enddo
summ = 0
do i1 = 1, 20
call A(array, summ, L, i1)
array(i1) = array(i1) + 1
enddo
write(*,*) 'summ = ', summ
END

24
tests/sapfor/PRINT_PAR_REGIONS_ERRORS/goto_err1.f Normal file
View File

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

13
tests/sapfor/PRINT_PAR_REGIONS_ERRORS/goto_ok1.f Normal file
View File

@@ -0,0 +1,13 @@
PROGRAM GOTO_TEST
INTEGER I, J, SUMM
SUMM = 0
J = 0
DO I = 1, 10
44 SUMM = SUMM + I
GOTO 55
55 J = I
GOTO 44
EXIT
ENDDO
GOTO 55
END