gcc/testsuite/algol68/execute/mult-string-3.a68


1
2
3
4
5
6
7
8
9
10
11
12
13

# { dg-options "-fstropping=upper" }  #
BEGIN FLEX[3]CHAR foo := ("f","o","o");
      ASSERT (foo * -10 = "foo");
      ASSERT (-10 * foo = "foo");
      ASSERT (foo * 0 = "foo");
      ASSERT (0 * foo = "foo");
      ASSERT (foo * 1 = "foo");
      ASSERT (1 * foo = "foo");
      ASSERT (foo * 2 = "foofoo");
      ASSERT (2 * foo = "foofoo");
      ASSERT (foo * 3 = "foofoofoo");
      ASSERT (3 * foo = "foofoofoo")
END