gcc/testsuite/algol68/execute/slice-indexing-5.a68

# { dg-options "-fstropping=upper" }  #
BEGIN STRUCT([]INT i, REAL r) s = ((1,2,3), 3.14);
      ASSERT ((i OF s)[1] = 1)
END