RosettaCodeData/Task/Flow-control-structures/Ada/flow-control-structures-1.adb

<<Top>>
   Put_Line("Hello, World");
   goto Top;