File: test_call.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 (23 lines) | stat: -rw-r--r-- 597 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
23
 
package body Test_Call 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);
      Rule_Checker (True, False, True, False);
--      Rule_Checker (True, False, True, False);
--      Rule_Checker (True, False, True, False);
--      Rule_Checker (True, False, True, False);
   raise Storage_Error;

end Test_Call;