RosettaCodeData/Task/A+B/Fortran/a+b.f

program a_plus_b
  implicit none
  integer :: a,b
  read (*, *) a, b
  write (*, '(i0)') a + b
end program a_plus_b
Add all the A tasks 2013-04-10 14:58:50 -07:00			`program a_plus_b`
			`implicit none`
Just another update 2015-02-20 00:35:01 -05:00			`integer :: a,b`
Add all the A tasks 2013-04-10 14:58:50 -07:00			`read (, ) a, b`
			`write (*, '(i0)') a + b`
			`end program a_plus_b`