RosettaCodeData/Task/A+B/Fortran/a+b.f
2015-02-20 00:35:01 -05:00

6 lines
116 B
Fortran

program a_plus_b
implicit none
integer :: a,b
read (*, *) a, b
write (*, '(i0)') a + b
end program a_plus_b