gcc/testsuite/algol68/execute/ascription-1.a68


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

# { dg-options "-fstropping=upper" }  #
# Make sure structs are copied when ascribed.  #
BEGIN MODE BAR = STRUCT (INT j, REAL r);
      MODE FOO = STRUCT (INT i, BAR bar);

      FOO f1 := (10, (20, 3.14));
      FOO f2 = f1;

      j OF bar OF f1 := 200;
      ASSERT (j OF bar OF f1 = 200);
      ASSERT (j OF bar OF f2 = 20)
END