gcc/testsuite/algol68/execute/identity-declaration-multiple-5.a68

# { dg-options "-fstropping=upper" }  #
BEGIN [:]INT foo = (1,2,3);
      ASSERT (ELEMS foo = 3)
END