summaryrefslogtreecommitdiff
path: root/Source/Dafny/Resolver.cs
diff options
context:
space:
mode:
Diffstat (limited to 'Source/Dafny/Resolver.cs')
-rw-r--r--Source/Dafny/Resolver.cs2
1 files changed, 2 insertions, 0 deletions
diff --git a/Source/Dafny/Resolver.cs b/Source/Dafny/Resolver.cs
index 69a1e9c6..f8320f10 100644
--- a/Source/Dafny/Resolver.cs
+++ b/Source/Dafny/Resolver.cs
@@ -1201,6 +1201,8 @@ namespace Microsoft.Dafny {
if (rhs is TypeRhs) {
ResolveTypeRhs((TypeRhs)rhs, stmt, specContextOnly, method);
isEffectful = true;
+ } else if (rhs is HavocRhs) {
+ isEffectful = false;
} else {
var er = (ExprRhs)rhs;
if (er.Expr is IdentifierSequence) {