finalyze moving

This commit is contained in:
2025-03-12 14:28:04 +03:00
committed by Dudarenko
parent de4690513b
commit 189374274e
776 changed files with 0 additions and 0 deletions

27
tests/inliner/alex.f Normal file
View File

@@ -0,0 +1,27 @@
integer function sum_(a, b)
integer a, b
sum_ = a + b
end
integer function sub_(a, b)
integer a, b
sub_ = a - b
if (1 .eq. 1) then
return
endif
end
subroutine print_(a)
integer a
write(*,*)a
end
program main
implicit none
integer a, b, res
integer sum_, sub_
a = 1
b = a + 1
res = sum_(sum_(a, b), sub_(a,b))
call print_(res)
end