mirror of
https://gitlab.com/scemama/irpf90.git
synced 2024-12-21 11:53:32 +01:00
Bug in select case
Version:1.2.3
This commit is contained in:
parent
3f2d536c65
commit
caba30c9de
@ -526,7 +526,7 @@ parsed_text = perform_loop_substitutions()
|
||||
######################################################################
|
||||
if __name__ == '__main__':
|
||||
for i in range(len(parsed_text)):
|
||||
# if parsed_text[i][0] == 'psi.irp.f':
|
||||
if parsed_text[i][0] == 'ao_oneD.irp.f':
|
||||
print '!-------- %s -----------'%(parsed_text[i][0])
|
||||
for line in parsed_text[i][1]:
|
||||
print line[1]
|
||||
|
@ -129,8 +129,7 @@ def get_type (i, filename, line, is_doc):
|
||||
return [ simple_dict[firstword](i,line,filename) ], is_doc
|
||||
|
||||
if firstword in [ "select", "selectcase" ]:
|
||||
return [ Select (i,"",filename) ,
|
||||
Simple_line (i,line,filename) ] , is_doc
|
||||
return [ Select(i,line,filename) ] , is_doc
|
||||
|
||||
if len(lower_line0) > 4:
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user