mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-12-21 20:03:33 +01:00
Handle program differently
This commit is contained in:
parent
18c236a710
commit
405629b7e9
@ -46,7 +46,6 @@ Fixed_form = 1
|
||||
######################################################################
|
||||
# Dictionary of simple statements
|
||||
simple_dict = {
|
||||
"program": Program ,
|
||||
"subroutine": Subroutine ,
|
||||
"begin_shell": Begin_shell ,
|
||||
"end_shell": End_shell ,
|
||||
@ -140,6 +139,9 @@ def get_type (i, filename, line, is_doc):
|
||||
if firstword == "begin_doc":
|
||||
return [ Begin_doc (i,line,filename) ], True
|
||||
|
||||
if firstword == "program":
|
||||
return [ Program (i,line,filename) ], False
|
||||
|
||||
if is_doc:
|
||||
return [ Doc (i,line,filename) ], is_doc
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user