File: test_comp.adb

package info (click to toggle)
gch 19990519-6
  • links: PTS
  • area: main
  • in suites: potato
  • size: 500 kB
  • ctags: 19
  • sloc: ada: 1,780; perl: 1,330
file content (17 lines) | stat: -rw-r--r-- 397 bytes parent folder | download | duplicates (3) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
package body Test_Comp is

   procedure Rule_Checker
     (Success       : Boolean;
      Bad_In        : Boolean;
      Good_In       : Boolean;
      Last : Boolean)
   is
   begin
      null;
   end Rule_Checker;
begin
   Rule_Checker (True, False, True, Last => False);
   Rule_Checker (Success => True, Bad_In => False, Good_In => True, Last => False);
   raise Storage_Error;

end Test_Comp;