From 483fa3d13f66ac50354ec15f0c0aead4af43afab Mon Sep 17 00:00:00 2001
From: Tonton Th <tth@linda.buvette.org>
Date: Sat, 25 Apr 2026 13:11:30 +0200
Subject: [PATCH] add mollyguard

---
 genplotting.f90 | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/genplotting.f90 b/genplotting.f90
index ec4b809..641e95e 100644
--- a/genplotting.f90
+++ b/genplotting.f90
@@ -20,6 +20,11 @@ subroutine genp_init (foo, fname)
   integer, intent(in)             :: foo
   character (len=*), intent(in)   :: fname
 
+  if (FOO .NE. 0)   THEN
+    WRITE(0, '("FOO .NE. 0")')
+    CALL EXIT(1) 
+  END IF
+
   outunit = 6          ! stdout
   if (len(fname) .gt. 0) then
     write (0, '("genplot init opening : ", A)') fname