aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/execute/slice-indexing-7.a68
blob: d3870f6119f9d495b34a19616e1a226f2d96b25f (plain)
1
2
3
4
# { dg-options "-fstropping=upper" }  #
BEGIN STRING s := "foo";
      s[2] := "x"
END