[COMMITTED] a68: mark attribute is_public in extract_revelation as unused

[Jose E. Marchesi]

---
 gcc/algol68/a68-parser-extract.cc | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/algol68/a68-parser-extract.cc b/gcc/algol68/a68-parser-extract.cc
index 9213fdc3c68..ae26f0fda31 100644
--- a/gcc/algol68/a68-parser-extract.cc
+++ b/gcc/algol68/a68-parser-extract.cc
@@ -188,7 +188,7 @@ skip_pack_declarer (NODE_T *p)
 /* Extract a revelation.  */
 
 static void
-extract_revelation (NODE_T *q, bool is_public)
+extract_revelation (NODE_T *q, bool is_public ATTRIBUTE_UNUSED)
 {
   /* Store in the symbol table.  */
   TAG_T *tag = a68_add_tag (TABLE (q), MODULE_SYMBOL, q, NO_MOID, STOP);
-- 
2.30.2