diff options
| author | Charles Harris <charlesr.harris@gmail.com> | 2015-10-16 12:34:37 -0600 |
|---|---|---|
| committer | Charles Harris <charlesr.harris@gmail.com> | 2015-10-16 12:34:37 -0600 |
| commit | aaf115d89c591f0fa8149f1d6851589c79fa656a (patch) | |
| tree | e4e075c3721faebcc5a0f845f21041fac92112d1 /numpy/f2py | |
| parent | f6a028cbf740969ec96e319b858483c0c4d4c68d (diff) | |
| parent | b1ce387fd259b63530ebe5390ad528bac304075f (diff) | |
| download | numpy-aaf115d89c591f0fa8149f1d6851589c79fa656a.tar.gz | |
Merge pull request #6488 from charris/cleanup-6306
Cleanup 6306: BUG: allow extension of common blocks in numpy.f2py
Diffstat (limited to 'numpy/f2py')
| -rwxr-xr-x | numpy/f2py/crackfortran.py | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/numpy/f2py/crackfortran.py b/numpy/f2py/crackfortran.py index f392f946c..6146e5098 100755 --- a/numpy/f2py/crackfortran.py +++ b/numpy/f2py/crackfortran.py @@ -1372,11 +1372,8 @@ def analyzeline(m, case, line): if 'common' in groupcache[groupcounter]: commonkey = groupcache[groupcounter]['common'] for c in cl: - if c[0] in commonkey: - outmess( - 'analyzeline: previously defined common block encountered. Skipping.\n') - continue - commonkey[c[0]] = [] + if c[0] not in commonkey: + commonkey[c[0]] = [] for i in [x.strip() for x in markoutercomma(c[1]).split('@,@')]: if i: commonkey[c[0]].append(i) |