break-in-do-while.chpl

record R {
  var x: int;
  proc deinit() {
    writeln("Destroying ", x);
  }
}

proc foo() {

  var count = 0;

  do {
    writeln("creating 1");
    var one = new R(1);
    
    break;

    writeln("creating 2");
    var two = new R(2);

    count += 1;

  } while count < 2;
}

foo();

Correct behavior:

creating 1
Destroying 1

$ chpl break-in-do-while.chpl 
$ ./a.out
$

wat

Even simpler:

proc foo() {
  do {
    writeln("in loop");
    break;
  } while true;
}

foo();