From cf2d4000bd877ed296c59c9464f1ad4a4b8542a8 Mon Sep 17 00:00:00 2001
From: John Werner <john@i3k8.ca>
Date: Thu, 23 Jul 2026 21:32:22 -0700
Subject: [PATCH] Allow #caller-expression on constant parameters which are
 procedures

---
 src/check_builtin.cpp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/check_builtin.cpp b/src/check_builtin.cpp
index e87c75e88..a41448973 100644
--- a/src/check_builtin.cpp
+++ b/src/check_builtin.cpp
@@ -2447,7 +2447,7 @@ gb_internal bool check_builtin_procedure_directive(CheckerContext *c, Operand *o
 			} else {
 				Operand o = {};
 				Entity *e = check_ident(c, &o, arg, nullptr, nullptr, true);
-				if (e == nullptr || (e->flags & EntityFlag_Param) == 0) {
+				if (e == nullptr || (e->kind != Entity_Procedure && (e->flags & EntityFlag_Param) == 0)) {
 					error(arg, "'#caller_expression' expected a valid earlier parameter name");
 				}
 				arg->Ident.entity = e;