A+B: Difference between revisions

Content deleted Content added

Inline

@@ Line 148: / Line 148: @@
   integer :: a
   integer :: b
-  integer :: iostat
+  read (*, *) a, b
-  do
-    read (*, *, iostat = iostat) a, b
+  write (*, '(i0)') a + b
-    if (iostat /= 0) exit
-    write (*, '(i0)') a + b
-  end do
 end program a_plus_b</lang>
 =={{header|Haskell}}==
 <lang haskell>sum' :: [Char] -> Int