gcc/testsuite/algol68/execute/cond-clause-9.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" }  #
# ELIF with ELSE #
BEGIN
   INT i = 12;
   IF i > 20 THEN
      1
   ELIF i > 12 THEN
      BEGIN
         IF FALSE THEN
            ASSERT (FALSE);
            1
         ELSE
            ASSERT (FALSE);
            1
         FI
      END
   ELIF i < 10 THEN
      ASSERT (FALSE);
      1
   ELSE
      0
   FI
END