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

Solves #7 : intrinsic ALL() in ASSERT()

Browse Source
This commit is contained in:
Anthony Scemama 2015-09-22 22:07:11 +02:00
parent 73da2b3cff
commit e7f9ec3075
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/preprocessed_text.py
View File

@ -514,7 +514,11 @@ def irp_simple_statements(text):
if match is not None: if match is not None:
matches = [ match.group(1).strip(), match.group(3).strip() ] matches = [ match.group(1).strip(), match.group(3).strip() ]
for m in matches: for m in matches:
if not(m.isdigit() or ("'" in m) or (m == "")): ok = m != "" # not empty
ok = ok and not m.isdigit() # not a digit
ok = ok and "'" not in m # not a string
ok = ok and m.count('(') == m.count(')') # balanced parenthesis
if ok:
result.append ( Simple_line (line.i, " print *, '%s = ', %s"%(m,m), line.filename) ) result.append ( Simple_line (line.i, " print *, '%s = ', %s"%(m,m), line.filename) )
result.append ( Simple_line (line.i, " print *, ''", line.filename) ) result.append ( Simple_line (line.i, " print *, ''", line.filename) )
return result return result

2
src/version.py
View File

@ -1 +1 @@
version = "1.6.8" version = "1.6.9"