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
|
# Dictionary of simple statements
|
||||||
simple_dict = {
|
simple_dict = {
|
||||||
"program": Program ,
|
|
||||||
"subroutine": Subroutine ,
|
"subroutine": Subroutine ,
|
||||||
"begin_shell": Begin_shell ,
|
"begin_shell": Begin_shell ,
|
||||||
"end_shell": End_shell ,
|
"end_shell": End_shell ,
|
||||||
@ -140,6 +139,9 @@ def get_type (i, filename, line, is_doc):
|
|||||||
if firstword == "begin_doc":
|
if firstword == "begin_doc":
|
||||||
return [ Begin_doc (i,line,filename) ], True
|
return [ Begin_doc (i,line,filename) ], True
|
||||||
|
|
||||||
|
if firstword == "program":
|
||||||
|
return [ Program (i,line,filename) ], False
|
||||||
|
|
||||||
if is_doc:
|
if is_doc:
|
||||||
return [ Doc (i,line,filename) ], is_doc
|
return [ Doc (i,line,filename) ], is_doc
|
||||||
|
|
||||||
|
Loading…
Reference in New Issue
Block a user