package TestCase::CompileError::String::CharacterAssign {
  sub main : int () {
    my $string = "abc";
    
    $string->[0] = 'd';
  }
}