aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/warning-scope-3.a68
blob: c5dd29562c00474ab9ed859c5243fe0ed048dd87 (plain)
1
2
3
# { dg-options {-Wscope -fstropping=upper} }  #
(REF INT xx;
 xx := (INT x; x := 3)) # { dg-warning "scope violation" }  #