package TestCase::CompileError::Concat::RightIsNotString {
  use TestCase::Minimal;
  
  sub main : int () {
    my $minimal : TestCase::Minimal;
    
    "abc" . $minimal;
  }
}