10
0
mirror of https://gitlab.com/scemama/irpf90.git synced 2024-12-21 20:03:33 +01:00

OpenMP sentinels added

This commit is contained in:
Anthony Scemama 2012-11-27 01:12:16 +01:00
parent f08f90321b
commit 017cbcb43f

View File

@ -153,6 +153,8 @@ instead of
return [ Openmp(i,line,filename) ], is_doc return [ Openmp(i,line,filename) ], is_doc
elif lower_line0[1:5] in ["dec$", "dir$"] and command_line.directives: elif lower_line0[1:5] in ["dec$", "dir$"] and command_line.directives:
return [ Directive(i,line,filename) ], is_doc return [ Directive(i,line,filename) ], is_doc
elif lower_line0[1:3] == "$ ":
return [ Openmp(i,line,filename) ], is_doc
if re_decl.match(lower_line) is not None: if re_decl.match(lower_line) is not None:
if "function" in buffer[1:3]: if "function" in buffer[1:3]: