File: test_loop.adb

package info (click to toggle)
gch 19990519-8
  • links: PTS
  • area: main
  • in suites: woody
  • size: 520 kB
  • ctags: 26
  • sloc: perl: 1,836; ada: 1,780
file content (22 lines) | stat: -rw-r--r-- 393 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 
  procedure Test_Loop is
  begin
      label : loop
         LOOP
            null;
         END LOOP;
         LOOP
            exit;
         END LOOP;
      end loop label;
      label1 : loop
         LOOP
            exit;
         END LOOP;
         L: LOOP
            exit;
         END LOOP L;
         LOOP
            exit;
         END LOOP;
      end loop label1;
  end Test_Loop;