diff --git a/bin/Fortran90_stuff_interface.pm b/bin/Fortran90_stuff_interface.pm
index 3899f633eaaf127e118560c884f7381794cce9c0..ca819a2bd1909dafbcea0e67fc6133dc1d3be59a 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';
   }