     useRegex = /^[ \t]*USE[ \t]/i
     subDefRegex = /^[ \t]*(PURE|ELEMENTAL|RECURSIVE)*[ \t]*(MODULE|PROGRAM|SUBROUTINE|FUNCTION)[ \t]/i
     typeDefRegex = /^[ \t]*(CLASS|TYPE)[ \t]*(IS)?[ \t]*\(/i
+    callRegex = /^[ \t]*CALL[ \t]+[a-z0-9_%]*$/i
+    if line.match(callRegex)?
+      return 4
     if line.match(useRegex)?
       return 1
     if line.match(useRegex)?

      unless line.endsWith('%')
        return completions
      fullLine = @getFullLine(editor, bufferPosition)
      lineScopes = @getLineScopes(editor, bufferPosition)
      cursorScope = @getClassScope(fullLine, lineScopes)
      if cursorScope?
        suggestions = @addChildren(cursorScope, suggestions, prefixLower, [])
        return @buildCompletionList(suggestions)
      completions = @buildCompletionList(suggestions)
    return completions

  goToDef: (word, editor, bufferPosition) ->

      cursorScope = @getClassScope(fullLine, lineScopes)
      if cursorScope?
        suggestions = @addChildren(cursorScope, suggestions, prefixLower, [])
        return @buildCompletionList(suggestions, lineContext)
      if prefix.length < @minPrefix and not activatedManually
        return completions
      for key in @globalObjInd when (@projectObjList[key]['name'].toLowerCase().startsWith(prefixLower))
