From 2f665ec4e76af9bdc30c18cc9a7e8e43df226420 Mon Sep 17 00:00:00 2001
From: Philippe WAUTELET <philippe.wautelet@aero.obs-mip.fr>
Date: Tue, 22 Jan 2019 16:59:43 +0100
Subject: [PATCH] Philippe 22/01/2019: add special treatment of FLUSH statement
in Fortran90_stuff_interface.pm
---
bin/Fortran90_stuff_interface.pm | 3 +++
1 file changed, 3 insertions(+)
diff --git a/bin/Fortran90_stuff_interface.pm b/bin/Fortran90_stuff_interface.pm
index 3899f633e..ca819a2bd 100644
--- a/bin/Fortran90_stuff_interface.pm
+++ b/bin/Fortran90_stuff_interface.pm
@@ -566,6 +566,9 @@ sub study_exec{
elsif(/^END *WHERE\b/) {
$$content='ENDWHERE';
}
+ elsif(/^FLUSH\s*\(/) {
+ $$content='FLUSH';
+ }
elsif(/^$name\s*=/o) { #ZVAR = ....
$$content='scal_assign';
}
--
GitLab