diff --git a/cores/microwatt/checks.pfv b/cores/microwatt/checks.pfv
index 5b5602a..b80afe9 100644
--- a/cores/microwatt/checks.pfv
+++ b/cores/microwatt/checks.pfv
@@ -1,6 +1,7 @@
 check unique --depth=15 --skip=12
 check cia    --depth=15
 check gpr    --depth=15
+check causal --depth=15
 check insn   --depth=17 --exclude=brh,brw,setbc,setbcr,setnbc,setnbcr
 
 check microwatt:storage:data --depth=15
diff --git a/power_fv/check/all.py b/power_fv/check/all.py
index 1a32d57..f638bf6 100644
--- a/power_fv/check/all.py
+++ b/power_fv/check/all.py
@@ -1,4 +1,5 @@
 from .unique import *
 from .cia import *
 from .gpr import *
+from .causal import *
 from .insn.all import *
diff --git a/power_fv/check/causal.py b/power_fv/check/causal.py
new file mode 100644
index 0000000..e4e244f
--- /dev/null
+++ b/power_fv/check/causal.py
@@ -0,0 +1,70 @@
+from amaranth import *
+from amaranth.asserts import *
+
+from power_fv.check import PowerFVCheck
+from power_fv.check._timer import Timer
+
+
+__all__ = ["CausalityCheck"]
+
+
+class CausalityCheck(PowerFVCheck, name=("causal",)):
+    """Causal consistency check.
+
+    Checks that an instruction that writes to a GPR has completed before any subsequent
+    instruction (by program order) can read it.
+    """
+
+    def testbench(self):
+        return CausalityTestbench(self)
+
+
+class CausalityTestbench(Elaboratable):
+    def __init__(self, check):
+        if not isinstance(check, CausalityCheck):
+            raise TypeError("Check must be an instance of CausalityCheck, not {!r}"
+                            .format(check))
+        self.check = check
+        self.name  = "causal_tb"
+
+    def elaborate(self, platform):
+        m = Module()
+
+        m.submodules.t_post = t_post = Timer(self.check.depth - 1)
+        m.submodules.dut    = dut    = self.check.dut
+
+        write_order = AnyConst(dut.pfv.order.shape())
+        write_index = AnyConst(unsigned(5))
+        read_before = Signal()
+
+        gpr_write = Record([("ra", 1), ("rb", 1), ("rs", 1), ("rt", 1)])
+        gpr_read  = Record.like(gpr_write)
+
+        m.d.comb += [
+            gpr_write.ra.eq(dut.pfv.ra.w_stb & (dut.pfv.ra.index == write_index)),
+            gpr_write.rb.eq(dut.pfv.rb.w_stb & (dut.pfv.rb.index == write_index)),
+            gpr_write.rs.eq(dut.pfv.rs.w_stb & (dut.pfv.rs.index == write_index)),
+            gpr_write.rt.eq(dut.pfv.rt.w_stb & (dut.pfv.rt.index == write_index)),
+
+            gpr_read .ra.eq(dut.pfv.ra.r_stb & (dut.pfv.ra.index == write_index)),
+            gpr_read .rb.eq(dut.pfv.rb.r_stb & (dut.pfv.rb.index == write_index)),
+            gpr_read .rs.eq(dut.pfv.rs.r_stb & (dut.pfv.rs.index == write_index)),
+            gpr_read .rt.eq(dut.pfv.rt.r_stb & (dut.pfv.rt.index == write_index)),
+        ]
+
+        with m.If(dut.pfv.stb & (dut.pfv.order > write_order) & ~dut.pfv.skip):
+            with m.If(gpr_read.any()):
+                m.d.sync += read_before.eq(1)
+
+        with m.If(t_post.zero):
+            m.d.comb += [
+                Assume(dut.pfv.stb),
+                Assume(dut.pfv.order == write_order),
+                Assume(~dut.pfv.skip),
+                Assume(gpr_write.any()),
+                Assert(~read_before),
+            ]
+
+        m.d.comb += Assert(~Past(t_post.zero))
+
+        return m