aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/error-contraction-2.a68
blob: 2115a4cbfab3f494113d72ab7a44c5735b79c2e5 (plain)
1
2
3
4
5
6
7
8
# { dg-options "-fstropping=upper" }  #

# Contracting mixed collateral variable and constant declarations is
  not allowed.  #
BEGIN PROC x = VOID: SKIP,
      y := VOID: SKIP; # { dg-error "mixed" } #
      x
END