From fef6380b6edb1b781ac96aa1a931d9c92ba96c28 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?S=C3=A9bastien=20Riette?= <sebastien.riette@meteo.fr>
Date: Tue, 21 Jun 2022 15:55:37 +0200
Subject: [PATCH] Add control for CALL in mnh_expand blocs

---
 verify_mnh_expand.py | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/verify_mnh_expand.py b/verify_mnh_expand.py
index 6676023dc..9788bddf7 100755
--- a/verify_mnh_expand.py
+++ b/verify_mnh_expand.py
@@ -87,6 +87,9 @@ def verify_mnh_expand(path):
                 if line[:3].upper() == b'DO ':
                     logging.warning('A DO loop is inside a mnh_expand bloc, is order correct?. ' +
                                     'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
+                elif line[:5].upper() == b'CALL ':
+                    logging.warning('A CALL statement is inside a mnh_expand bloc, is it correct? ' +
+                                    'Line {line} of file {filename}'.format(line=iline + 1, filename=path))
                 elif b'=' in line and all([c in lhschar for c in line.split(b'=')[0]]):
                     lhs = line.split(b'=')[0]
                     if not b'(' in lhs:
-- 
GitLab