Index: compiler/analyser.c
===================================================================
--- compiler/analyser.c	(revision 395)
+++ compiler/analyser.c	(working copy)
@@ -883,7 +883,7 @@
         warned = false;
         until (q == 0) {
             if (! q->used && (q->type == t_routine ||
-                              q->type == t_grouping)) {
+                              q->type == t_grouping) && q->referenced) {
                 unless (warned) {
                     fprintf(stderr, "Declared and defined but not used:");
                     warned = true;