10
0
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:
Anthony Scemama 2011-10-03 11:47:33 +02:00
parent 3f2d536c65
commit caba30c9de
2 changed files with 2 additions and 3 deletions

View File

@ -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]

View File

@ -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: