@@ -237,6 +237,10 @@ expr
237237 | IntegerUnaryMinus(expr arg, ttype type, expr? value)
238238 | IntegerCompare(expr left, cmpop op, expr right, ttype type, expr? value)
239239 | IntegerBinOp(expr left, binop op, expr right, ttype type, expr? value)
240+ | UnsignedIntegerConstant(float re, float im, ttype type)
241+ | UnsignedIntegerUnaryMinus(expr arg, ttype type, expr? value)
242+ | UnsignedIntegerCompare(expr left, cmpop op, expr right, ttype type, expr? value)
243+ | UnsignedIntegerBinOp(expr left, binop op, expr right, ttype type, expr? value)
240244 | RealConstant(float r, ttype type)
241245 | RealUnaryMinus(expr arg, ttype type, expr? value)
242246 | RealCompare(expr left, cmpop op, expr right, ttype type, expr? value)
346350
347351ttype
348352 = Integer(int kind, dimension* dims)
353+ | UnsignedInteger(int kind, dimension* dims)
349354 | Real(int kind, dimension* dims)
350355 | Complex(int kind, dimension* dims)
351356 | Character(int kind, int len, expr? len_expr, dimension* dims)
@@ -402,6 +407,8 @@ cast_kind
402407 | RealToCharacter
403408 | IntegerToCharacter
404409 | LogicalToCharacter
410+ | UnsignedIntegerToInteger
411+ | IntegerToUnsignedInteger
405412
406413dimension = (expr? start, expr? length)
407414
0 commit comments