diff --git a/src/check_decl.cpp b/src/check_decl.cpp
index 331225d86..2ef825083 100644
--- a/src/check_decl.cpp
+++ b/src/check_decl.cpp
@@ -525,6 +525,8 @@ void check_proc_decl(Checker *c, Entity *e, DeclInfo *d) {
 				      "\tat %.*s(%td:%td)",
 				      LIT(name), LIT(pos.file), pos.line, pos.column);
 			}
+		} else if (name == "main") {
+			error(d->proc_lit, "The link name `main` is reserved for internal use");
 		} else {
 			map_set(fp, key, e);
 		}
@@ -549,6 +551,8 @@ void check_proc_decl(Checker *c, Entity *e, DeclInfo *d) {
 				      "Non unique linking name for procedure `%.*s`\n"
 				      "\tother at %.*s(%td:%td)",
 				      LIT(name), LIT(pos.file), pos.line, pos.column);
+			} else if (name == "main") {
+				error(d->proc_lit, "The link name `main` is reserved for internal use");
 			} else {
 				map_set(fp, key, e);
 			}