package TestCase::CompileError::Weaken::ArrayNotObject {
  use TestCase::Minimal;
  
  sub main : int () {
    my $nums = new int[1];
    weaken $nums->[0];
  }
}