IK
Size: a a a
IK
K
SG
SG
RS
AT
BD
AT
MM
FO
FO
module test
implicit none
contains
subroutine add1(a, b, res)
integer :: a, b
integer, intent(out) :: res
a = 1
b = 2
res = a + b
end subroutine add1
end module test
program main
use test
implicit none
integer res, a
a = 1
call add1(a, a, res)
print *, res
end program main
MM
PS
VT
а
K
dt
M
AD
а