gcc/testsuite/gm2/iso/run/pass/condtest4.mod


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

MODULE condtest4 ;

FROM libc IMPORT printf, exit ;


PROCEDURE test (VAR a, b: BOOLEAN) ;
BEGIN
   IF a AND b
   THEN
      printf ("passed\n")
   ELSE
      printf ("failed\n") ;
      exit (1)
   END
END test ;


VAR
   e, f: BOOLEAN ;
BEGIN
   e := TRUE ;
   f := TRUE ;
   test (e, f)
END condtest4.