gcc/testsuite/algol68/execute/cond-clause-7.a68


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

# { dg-options "-fstropping=upper" }  #
# Nested conditional clauses  #
BEGIN
   INT i = 12;
   IF i > 5 THEN
      IF i < 15 THEN
         IF i > 11 THEN
            0
         ELSE
            ASSERT (FALSE);
            1
         FI
      FI
   ELSE
      IF i > 100 THEN
         ASSERT (FALSE);
         1
      ELSE
         ASSERT (FALSE);
         1
      FI
   FI
END