From 6a7108f650866031037308f82588591287b064d3 Mon Sep 17 00:00:00 2001
From: Thomas Jahns <jahns@dkrz.de>
Date: Thu, 18 May 2017 11:53:03 +0200
Subject: [PATCH] Make verbatim paren match in F77 interface generator
explicit.
---
src/make_fint.c | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/src/make_fint.c b/src/make_fint.c
index c89aa83ac..594a3a0e9 100644
--- a/src/make_fint.c
+++ b/src/make_fint.c
@@ -167,7 +167,7 @@ static inline int isSym(const int c)
/* Note: size of this table must match the cftype enum */
static struct symbol funArgSym[]
= { { "", "", "%svoid",
- "^"WS"*void"WS"*)", 0, 0, 0 },
+ "^"WS"*void"WS"*\\)", 0, 0, 0 },
{ "CHARACTER(80)", "STRING", "%schar *%.*s",
"^"WS"*const"WS"+char"WS"+\\*"SYMRE WS"*\\(", 1, 0, 0 },
{ "INTEGER", "INT", "%sint %.*s",
--
GitLab