Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Loops-Continue/Ada/loops-continue.ada
+++ b/Task/Loops-Continue/Ada/loops-continue.ada
@ -1,13 +1,17 @@
-with Ada.Text_Io; use Ada.Text_Io;
+with Ada.Text_IO;
+use Ada.Text_IO;

 procedure Loop_Continue is
 begin
-   for I in 1..10 loop
-      Put(Integer'Image(I));
-      if I mod 5 = 0 then
-         New_Line;
-      else
-         Put(",");
-      end if;
-   end loop;
+        for I in 1..10 loop
+                Put (Integer'Image(I));
+                if I = 5 or I = 10 then
+                        New_Line;
+                        goto Continue;
+                end if;
+                Put (",");
+                -- label must be followed by a statement.
+                <<Continue>>
+                null;
+        end loop;
 end Loop_Continue;