aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/algol68/compile/error-supper-6.a68
blob: c013b4894b389385d56220b0fdfce13f6542f2e1 (plain)
1
2
3
4
5
6
# { dg-options {-fstropping=supper} }  #

begin mode foo_Invalid = int; # { dg-error "Invalid" }  #
      foo_Invalid some_int = 10; # { dg-error "Invalid" }  #
      skip
end