fix: Count proof obligations of loop headers

Source/DafnyCore/Verifier/BoogieStmtListBuilder.cs

@@ -1,3 +1,4 @@
+using System.Linq;
 using Microsoft.Boogie;
 
 namespace Microsoft.Dafny {
@@ -26,7 +27,14 @@ public void Add(Cmd cmd) {
  }
  }
  }
- public void Add(StructuredCmd scmd) { builder.Add(scmd); }
+
+ public void Add(StructuredCmd scmd) {
+ builder.Add(scmd);
+ if (scmd is Boogie.WhileCmd whyle && whyle.Invariants.Any(inv => inv is Boogie.AssertCmd)) {
+ tran.assertionCount++;
+ }
+ }
+
  public void Add(TransferCmd tcmd) { builder.Add(tcmd); }
  public void AddLabelCmd(string label) { builder.AddLabelCmd(label); }
  public void AddLocalVariable(string name) { builder.AddLocalVariable(name); }

Test/git-issues/git-issue-3243.dfy

@@ -0,0 +1,22 @@
+// RUN: %exits-with 4 %dafny /compile:0 "%s" > "%t"
+// RUN: %diff "%s.expect" "%t"
+
+method LoopWithBody(x: int)
+ decreases *
+{
+ var i := 0;
+ while i < x
+ // The following loop-invariant-on-entry check was once omitted when it was the only proof obligation.
+ invariant i <= x // error: loop invariant does not hold on entry
+ decreases *
+ {
+ }
+}
+
+method BodylessLoop(x: int)
+{
+ var i := 0;
+ while i < x
+ // The following loop-invariant-on-entry check was once omitted when it was the only proof obligation.
+ invariant i <= x // error: loop invariant does not hold on entry
+}

Test/git-issues/git-issue-3243.dfy.expect

@@ -0,0 +1,7 @@
+git-issue-3243.dfy(19,2): Warning: note, this loop has no body (loop frame: i)
+git-issue-3243.dfy(10,16): Error: This loop invariant might not hold on entry.
+git-issue-3243.dfy(10,16): Related message: loop invariant violation
+git-issue-3243.dfy(21,16): Error: This loop invariant might not hold on entry.
+git-issue-3243.dfy(21,16): Related message: loop invariant violation
+
+Dafny program verifier finished with 0 verified, 2 errors

docs/dev/news/3244.fix

@@ -0,0 +1 @@
+Check loop invariants on entry, even when such are the only proof obligations in a method.