aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/actual-bounds-expected-3.a68
blob: 26ddd279f056a284bab39a0477c0f6db04753f27 (plain)
1
2
3
4
5
6
# { dg-options "-fstropping=upper" }  #

BEGIN LOC[]INT a := (1,2,3), # { dg-error "actual bounds expected" }  #
               b := (4);
      SKIP
END