Skip to content
Snippets Groups Projects
Commit 2f665ec4 authored by WAUTELET Philippe's avatar WAUTELET Philippe
Browse files

Philippe 22/01/2019: add special treatment of FLUSH statement in Fortran90_stuff_interface.pm

parent 93c63503
No related branches found
No related tags found
No related merge requests found
...@@ -566,6 +566,9 @@ sub study_exec{ ...@@ -566,6 +566,9 @@ sub study_exec{
elsif(/^END *WHERE\b/) { elsif(/^END *WHERE\b/) {
$$content='ENDWHERE'; $$content='ENDWHERE';
} }
elsif(/^FLUSH\s*\(/) {
$$content='FLUSH';
}
elsif(/^$name\s*=/o) { #ZVAR = .... elsif(/^$name\s*=/o) { #ZVAR = ....
$$content='scal_assign'; $$content='scal_assign';
} }
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment