1.1 --- a/Canon/subroutinizedIntrinsics.py	Thu Dec 03 16:07:56 2009 -0600
     1.2 +++ b/Canon/subroutinizedIntrinsics.py	Thu Dec 03 16:26:09 2009 -0600
     1.3 @@ -43,6 +43,7 @@
     1.4          keyList=[k for k in uniq] 
     1.5      newUnit=Unit()
     1.6      newUnit.uinfo=fs.ModuleStmt(getModuleName())
     1.7 +    empty=True
     1.8      for k in keyList:
     1.9          nameList=[]
    1.10          newUnit.decls.append(fs.InterfaceStmt(call_prefix+k,lead='  '))
    1.11 @@ -50,9 +51,11 @@
    1.12              if (onlyRequired and (k,t) not in _requiredSubroutinizedIntrinsics):
    1.13                  continue
    1.14              nameList.append(__makeNameImpl(k,t))
    1.15 +            empty=False
    1.16          newUnit.decls.append(fs.ProcedureStmt('module',nameList,lead='    '))
    1.17          newUnit.decls.append(fs.EndInterfaceStmt(lead='  '))
    1.18 -    newUnit.decls.append(fs.ContainsStmt(lead='  '))
    1.19 +    if not empty: 
    1.20 +        newUnit.decls.append(fs.ContainsStmt(lead='  '))
    1.21      for k in keyList:
    1.22          for t in typeList:
    1.23              if (onlyRequired and (k,t) not in _requiredSubroutinizedIntrinsics):