Fix parser bug with type classes (#7480)

compiler/parser.nim

@@ -1080,6 +1080,7 @@ proc parseTypeDescKAux(p: var TParser, kind: TNodeKind,
   #| distinct = 'distinct' optInd typeDesc
   result = newNodeP(kind, p)
   getTok(p)
+  if p.tok.indent != -1 and p.tok.indent <= p.currInd: return
   optInd(p, result)
   if not isOperator(p.tok) and isExprStart(p):
     addSon(result, primary(p, mode))

tests/parser/ttypeclasses.nim

@@ -0,0 +1,17 @@
+discard """
+    action: run
+"""
+
+type
+    R = ref
+    V = var
+    D = distinct
+    P = ptr
+
+var x: ref int
+var y: distinct int
+var z: ptr int
+
+doAssert x is ref
+doAssert y is distinct
+doAssert z is ptr