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

BEGIN
   LONG LONG INT d := LONG 0; # { dg-error "coerced" }  #
   d
END