#
# Test of expressions
#
# Copyright © 2023-2024 Samuel Lidén Borell <samuel@kodafritt.se>
#
# Permission is hereby granted, free of charge, to any person obtaining a copy
# of this software and associated documentation files (the "Software"), to deal
# in the Software without restriction, including without limitation the rights
# to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
# copies of the Software, and to permit persons to whom the Software is
# furnished to do so, subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in
# all copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
# FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
# AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
# LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
# OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
# THE SOFTWARE.
#

# TODO local functions
#local func f1()
func expr_return(int x) -> int
{
    return 2*x + 3
}

func expr_multiarg(bool first, int second, ?ref ExprSimpleStruct third,
                   EnumType fourth_argument)
{
}

func expr_misc() -> int
{
    int a = expr_return(2)
    int b = expr_return(2+1)
    int c = expr_return(4)
    int d = expr_return(5)
    int e = expr_return(6)
    int f = expr_return(6)

    if a != b {
        int p = (a*c*d)/(b+e)
        int q = (a + b) * (c + d) * (e + f) * (a - b) * (b - c)
        int x = a+(b+(c+(d+(e+f))))
        int y = ((((a+b)+c)+d)+e)+f
        return (p*12) + (34*q) + (c*56 + x) + (p + d*x + y - 123)
    }
    return 123
}

func expr_pointers()
{
    int i = 123
    ref int intptr = refto i
    int j = deref intptr

    assert intptr ref_is refto i
    assert intptr ref_is_not refto j
    assert i == deref intptr
    assert deref intptr == i

    byte b = 123
    assert deref intptr == 123
    assert deref intptr == b
    # TODO allow this or improve the error message
    #uint64 u64 = 123
    #assert deref intptr == u64
}

type ExprPtrAssign = struct {
    ref var int p
}

func expr_pointer_assign()
{
    var int i = 111
    ref var int intptr = refto i
    var ExprPtrAssign struc = (.p = refto i)

    deref intptr = 222
    # FIXME this crashes.
    #       and it looks it tries to overwrite the pointer :(
    deref struc.p = 333
}

func expr_booleans()
{
    bool a = true
    bool b = false
    bool c = false

    assert a or b or c
    assert not (a and b and c)
}

func expr_comparisons_int()
{
    int c = 111
    var int v = 222
    int n = -333

    assert c == c
    assert c == 111
    assert c != 222
    assert c != -111

    assert v == 222
    assert v != 111

    assert c >= c
    assert c >= 111
    assert c >= -112
    assert c >= -110
    assert not c > c
    assert c > 110
    assert c > -110
    assert c > -112
    assert c <= 111
    assert not c <= -111
    assert c <= c
    assert not c < c
    assert c < 112

    assert n == c-444
    assert n == -333
    assert n != -111
    assert n >= -333    # BUG
    assert not n >= -332
    assert n >= -334
    assert n > -334
    assert not n > -333 # BUG
    assert not n > -332
    assert n <= -332
    assert n <= -333    # BUG
    assert not n <= -334
    assert n < -332
    assert not n < -333
    assert not n < -334

    assert v >= c
    assert c <= v
    assert v != c
    assert c != v

    var uint64 u64_a = 0xffff_ffff_ffff_fffe
    var uint64 u64_b = 0xffff_ffff_ffff_ffff
    assert u64_a < u64_b
    assert u64_a <= 0xffff_ffff_ffff_fffe
    assert u64_a < 0xffff_ffff_ffff_ffff
}

func expr_comparisons_bool()
{
    bool f = false
    bool t = true
    var bool v = false

    assert f == f
    assert f == false
    assert false == f
    assert not f == true
    assert f != true
    assert true != f
    assert t == t
    assert not t == f
    assert not t == not not f
    assert (t == f) == false
    assert (t == f) == (t != t)
    assert (t != f) == (t == t)
    assert (t != f) != (t != t)
    assert (t != v) != (t != t)
}

func typescope_param(EnumType z) -> EnumType
{
    var EnumType x = .b
    x = .c
    EnumType y = .a
    if y == z return x
    else if z == .b return y
    return .b
}

func expr_typescopes()
{
    assert typescope_param(.a) == .c
    assert typescope_param(.b) == .a
    assert typescope_param(.c) == .b
}

func expr_calls()
{
    expr_multiarg(true, 2, none, .c)
    int a = expr_return(.x=123)  # 2*x + 3
    expr_multiarg(.first=true, .second=2, .third=none, .fourth_argument=.c)
    expr_multiarg(
            .first  = true,
            .second = 2,
            .third  = none,
            .fourth_argument = .c)
    expr_multiarg(true, 2, .third=none, .c)
    usize multicall1 = expr_get_some_number() + expr_get_some_number()
    int multicall2 = expr_return(11) + expr_return(22)
    assert a == 249
    assert multicall1 == 0
    assert multicall2 == 72
}

data EnumType data_enumtype = .a

type EnumType = enum {
    a
    b
    c
}

data EnumType data_enumtype2 = .b

type ExprSimpleStruct = struct {
    int a
    bool b
}
data ExprSimpleStruct expr_struct_initd = (.a=123, .b=true)
func expr_struct_initf() -> ExprSimpleStruct
{
    ExprSimpleStruct st = (.a=123, .b=true)
    ExprSimpleStruct st2 = (
        .a    = 123,
        .b    = true,
    )
    assert st.a == 123
    assert st.b == true
    # TODO add test of struct returns once that is implemented
    return st
}

func expr_init_copy()
{
    var [1]byte b1 = [10]
    var [2]byte b2 = [20,21]
    var [3]byte b3 = [30,31,32]
    var [4]byte b4 = [40,41,42,43]
    var [5]byte b5 = [50,51,52,53,54]
    var [6]byte b6 = [60,61,62,63,64,65]
    var [7]byte b7 = [70,71,72,73,74,75,76]
    var [8]byte b8 = [80,81,82,83,84,85,86,87]
    var [9]byte b9 = [90,91,92,93,94,95,96,97,98]
    var [10]byte b10 = [0,1,2,3,4,5,6,7,8,9]
    var [11]byte b11 = [0,1,2,3,4,5,6,7,8,9,10]
    var [12]byte b12 = [0,1,2,3,4,5,6,7,8,9,10,11]
    var [13]byte b13 = [0,1,2,3,4,5,6,7,8,9,10,11,12]
    var [14]byte b14 = [0,1,2,3,4,5,6,7,8,9,10,11,12,13]
    var [15]byte b15 = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14]
    var [16]byte b16 = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15]
    var [17]byte b17 = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16]
    var [18]byte b18 = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17]
    var [19]byte b19 = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18]
    var [20]byte b20 = [0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19]
    assert b1[0] == 10
    assert b2[0] == 20
    assert b2[1] == 21
    assert b3[0] == 30
    assert b3[1] == 31
    assert b3[2] == 32
    assert b4[0] == 40
    assert b4[1] == 41
    assert b4[2] == 42
    assert b4[3] == 43
    assert b5[0] == 50
    assert b5[4] == 54
    assert b6[4] == 64
    assert b6[5] == 65
    assert b7[0] == 70
    assert b7[4] == 74
    assert b7[5] == 75
    assert b7[6] == 76
    assert b8[0] == 80
    assert b8[4] == 84
    assert b8[5] == 85
    assert b8[6] == 86
    assert b8[7] == 87
    assert b9[0] == 90
    assert b9[4] == 94
    assert b9[5] == 95
    assert b9[6] == 96
    assert b9[7] == 97
    assert b9[8] == 98
    var byte i = 0
    while i < 20 {
        # FIXME comparison between usize and byte gives type error :(
        if i < 10 { assert b10[i] == i }
        if i < 11 { assert b11[i] == i }
        if i < 12 { assert b12[i] == i }
        if i < 13 { assert b13[i] == i }
        if i < 14 { assert b14[i] == i }
        if i < 15 { assert b15[i] == i }
        if i < 16 { assert b16[i] == i }
        if i < 17 { assert b17[i] == i }
        if i < 18 { assert b18[i] == i }
        if i < 19 { assert b19[i] == i }
        if i < 20 { assert b20[i] == i }
        # FIXME var-ness checking is missing. if "i" is not var, then one
        # gets strange errors about "condition is always true" and finally an assertion failure.
        i += 1
    }
}

type ExprStruct = struct {
    ref var ExprStruct next
    int a
    ref int b
}

func never_get_struct() -> ExprStruct
{
    while true { }
}

func expr_fields()
{
    # TODO fix refto to self in initialization (but things like .next=f(refto v) MUST be forbidden!)
    #var ExprStruct v = (.next=refto v, .a=123, .b=refto i)
    # TODO partial/per-field initialization?
    #var ExprStruct v
    var ExprStruct v = never_get_struct()
    v.a = 234
    v.a += 1
    v.a = deref v.b + 22
    v.b = refto v.a
    v.next = refto v
    v.next.a = 345
}

type InnerStruct = struct {
    int a
    int e
}

type EmptyInnerStruct = struct {}

type NestedStruct = struct {
    bool a
    EmptyInnerStruct b
    bool c
    InnerStruct d
    bool e
}

func expr_structs()
{
    NestedStruct s1 = (
        .a = true,
        .b = (),
        .c = false,
        .d = (.a = 123, .e = 456),
        .e = false,
    )

    # TODO initialization is not detected correctly in refto
    #int i1 = 456
    #var ExprStruct s2
    #s2 = (
    #    .next = refto s2,
    #    .a = 123,
    #    .b = refto i1
    #)

    # TODO add test of assignment/copying of structs
}


type StructWithArrays = struct {
    [2]int intarr
    [2,3]int intarr2
    [2,1,3]int intarr3
    [2]NestedStructWithArray nested
}

type NestedStructWithArray = struct {
    [2]bool boolarr
}

func expr_get_some_number() -> usize
{
    return 0
}

data [2048]int large_array = [
1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58,59,60,61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79,80,81,82,83,84,85,86,87,88,89,90,91,92,93,94,95,96,97,98,99,100,101,102,103,104,105,106,107,108,109,110,111,112,113,114,115,116,117,118,119,120,121,122,123,124,125,126,127,128,129,130,131,132,133,134,135,136,137,138,139,140,141,142,143,144,145,146,147,148,149,150,151,152,153,154,155,156,157,158,159,160,161,162,163,164,165,166,167,168,169,170,171,172,173,174,175,176,177,178,179,180,181,182,183,184,185,186,187,188,189,190,191,192,193,194,195,196,197,198,199,200,201,202,203,204,205,206,207,208,209,210,211,212,213,214,215,216,217,218,219,220,221,222,223,224,225,226,227,228,229,230,231,232,233,234,235,236,237,238,239,240,241,242,243,244,245,246,247,248,249,250,251,252,253,254,255,256,257,258,259,260,261,262,263,264,265,266,267,268,269,270,271,272,273,274,275,276,277,278,279,280,281,282,283,284,285,286,287,288,289,290,291,292,293,294,295,296,297,298,299,300,301,302,303,304,305,306,307,308,309,310,311,312,313,314,315,316,317,318,319,320,321,322,323,324,325,326,327,328,329,330,331,332,333,334,335,336,337,338,339,340,341,342,343,344,345,346,347,348,349,350,351,352,353,354,355,356,357,358,359,360,361,362,363,364,365,366,367,368,369,370,371,372,373,374,375,376,377,378,379,380,381,382,383,384,385,386,387,388,389,390,391,392,393,394,395,396,397,398,399,400,401,402,403,404,405,406,407,408,409,410,411,412,413,414,415,416,417,418,419,420,421,422,423,424,425,426,427,428,429,430,431,432,433,434,435,436,437,438,439,440,441,442,443,444,445,446,447,448,449,450,451,452,453,454,455,456,457,458,459,460,461,462,463,464,465,466,467,468,469,470,471,472,473,474,475,476,477,478,479,480,481,482,483,484,485,486,487,488,489,490,491,492,493,494,495,496,497,498,499,500,501,502,503,504,505,506,507,508,509,510,511,512,513,514,515,516,517,518,519,520,521,522,523,524,525,526,527,528,529,530,531,532,533,534,535,536,537,538,539,540,541,542,543,544,545,546,547,548,549,550,551,552,553,554,555,556,557,558,559,560,561,562,563,564,565,566,567,568,569,570,571,572,573,574,575,576,577,578,579,580,581,582,583,584,585,586,587,588,589,590,591,592,593,594,595,596,597,598,599,600,601,602,603,604,605,606,607,608,609,610,611,612,613,614,615,616,617,618,619,620,621,622,623,624,625,626,627,628,629,630,631,632,633,634,635,636,637,638,639,640,641,642,643,644,645,646,647,648,649,650,651,652,653,654,655,656,657,658,659,660,661,662,663,664,665,666,667,668,669,670,671,672,673,674,675,676,677,678,679,680,681,682,683,684,685,686,687,688,689,690,691,692,693,694,695,696,697,698,699,700,701,702,703,704,705,706,707,708,709,710,711,712,713,714,715,716,717,718,719,720,721,722,723,724,725,726,727,728,729,730,731,732,733,734,735,736,737,738,739,740,741,742,743,744,745,746,747,748,749,750,751,752,753,754,755,756,757,758,759,760,761,762,763,764,765,766,767,768,769,770,771,772,773,774,775,776,777,778,779,780,781,782,783,784,785,786,787,788,789,790,791,792,793,794,795,796,797,798,799,800,801,802,803,804,805,806,807,808,809,810,811,812,813,814,815,816,817,818,819,820,821,822,823,824,825,826,827,828,829,830,831,832,833,834,835,836,837,838,839,840,841,842,843,844,845,846,847,848,849,850,851,852,853,854,855,856,857,858,859,860,861,862,863,864,865,866,867,868,869,870,871,872,873,874,875,876,877,878,879,880,881,882,883,884,885,886,887,888,889,890,891,892,893,894,895,896,897,898,899,900,901,902,903,904,905,906,907,908,909,910,911,912,913,914,915,916,917,918,919,920,921,922,923,924,925,926,927,928,929,930,931,932,933,934,935,936,937,938,939,940,941,942,943,944,945,946,947,948,949,950,951,952,953,954,955,956,957,958,959,960,961,962,963,964,965,966,967,968,969,970,971,972,973,974,975,976,977,978,979,980,981,982,983,984,985,986,987,988,989,990,991,992,993,994,995,996,997,998,999,1000,1001,1002,1003,1004,1005,1006,1007,1008,1009,1010,1011,1012,1013,1014,1015,1016,1017,1018,1019,1020,1021,1022,1023,1024,1025,1026,1027,1028,1029,1030,1031,1032,1033,1034,1035,1036,1037,1038,1039,1040,1041,1042,1043,1044,1045,1046,1047,1048,1049,1050,1051,1052,1053,1054,1055,1056,1057,1058,1059,1060,1061,1062,1063,1064,1065,1066,1067,1068,1069,1070,1071,1072,1073,1074,1075,1076,1077,1078,1079,1080,1081,1082,1083,1084,1085,1086,1087,1088,1089,1090,1091,1092,1093,1094,1095,1096,1097,1098,1099,1100,1101,1102,1103,1104,1105,1106,1107,1108,1109,1110,1111,1112,1113,1114,1115,1116,1117,1118,1119,1120,1121,1122,1123,1124,1125,1126,1127,1128,1129,1130,1131,1132,1133,1134,1135,1136,1137,1138,1139,1140,1141,1142,1143,1144,1145,1146,1147,1148,1149,1150,1151,1152,1153,1154,1155,1156,1157,1158,1159,1160,1161,1162,1163,1164,1165,1166,1167,1168,1169,1170,1171,1172,1173,1174,1175,1176,1177,1178,1179,1180,1181,1182,1183,1184,1185,1186,1187,1188,1189,1190,1191,1192,1193,1194,1195,1196,1197,1198,1199,1200,1201,1202,1203,1204,1205,1206,1207,1208,1209,1210,1211,1212,1213,1214,1215,1216,1217,1218,1219,1220,1221,1222,1223,1224,1225,1226,1227,1228,1229,1230,1231,1232,1233,1234,1235,1236,1237,1238,1239,1240,1241,1242,1243,1244,1245,1246,1247,1248,1249,1250,1251,1252,1253,1254,1255,1256,1257,1258,1259,1260,1261,1262,1263,1264,1265,1266,1267,1268,1269,1270,1271,1272,1273,1274,1275,1276,1277,1278,1279,1280,1281,1282,1283,1284,1285,1286,1287,1288,1289,1290,1291,1292,1293,1294,1295,1296,1297,1298,1299,1300,1301,1302,1303,1304,1305,1306,1307,1308,1309,1310,1311,1312,1313,1314,1315,1316,1317,1318,1319,1320,1321,1322,1323,1324,1325,1326,1327,1328,1329,1330,1331,1332,1333,1334,1335,1336,1337,1338,1339,1340,1341,1342,1343,1344,1345,1346,1347,1348,1349,1350,1351,1352,1353,1354,1355,1356,1357,1358,1359,1360,1361,1362,1363,1364,1365,1366,1367,1368,1369,1370,1371,1372,1373,1374,1375,1376,1377,1378,1379,1380,1381,1382,1383,1384,1385,1386,1387,1388,1389,1390,1391,1392,1393,1394,1395,1396,1397,1398,1399,1400,1401,1402,1403,1404,1405,1406,1407,1408,1409,1410,1411,1412,1413,1414,1415,1416,1417,1418,1419,1420,1421,1422,1423,1424,1425,1426,1427,1428,1429,1430,1431,1432,1433,1434,1435,1436,1437,1438,1439,1440,1441,1442,1443,1444,1445,1446,1447,1448,1449,1450,1451,1452,1453,1454,1455,1456,1457,1458,1459,1460,1461,1462,1463,1464,1465,1466,1467,1468,1469,1470,1471,1472,1473,1474,1475,1476,1477,1478,1479,1480,1481,1482,1483,1484,1485,1486,1487,1488,1489,1490,1491,1492,1493,1494,1495,1496,1497,1498,1499,1500,1501,1502,1503,1504,1505,1506,1507,1508,1509,1510,1511,1512,1513,1514,1515,1516,1517,1518,1519,1520,1521,1522,1523,1524,1525,1526,1527,1528,1529,1530,1531,1532,1533,1534,1535,1536,1537,1538,1539,1540,1541,1542,1543,1544,1545,1546,1547,1548,1549,1550,1551,1552,1553,1554,1555,1556,1557,1558,1559,1560,1561,1562,1563,1564,1565,1566,1567,1568,1569,1570,1571,1572,1573,1574,1575,1576,1577,1578,1579,1580,1581,1582,1583,1584,1585,1586,1587,1588,1589,1590,1591,1592,1593,1594,1595,1596,1597,1598,1599,1600,1601,1602,1603,1604,1605,1606,1607,1608,1609,1610,1611,1612,1613,1614,1615,1616,1617,1618,1619,1620,1621,1622,1623,1624,1625,1626,1627,1628,1629,1630,1631,1632,1633,1634,1635,1636,1637,1638,1639,1640,1641,1642,1643,1644,1645,1646,1647,1648,1649,1650,1651,1652,1653,1654,1655,1656,1657,1658,1659,1660,1661,1662,1663,1664,1665,1666,1667,1668,1669,1670,1671,1672,1673,1674,1675,1676,1677,1678,1679,1680,1681,1682,1683,1684,1685,1686,1687,1688,1689,1690,1691,1692,1693,1694,1695,1696,1697,1698,1699,1700,1701,1702,1703,1704,1705,1706,1707,1708,1709,1710,1711,1712,1713,1714,1715,1716,1717,1718,1719,1720,1721,1722,1723,1724,1725,1726,1727,1728,1729,1730,1731,1732,1733,1734,1735,1736,1737,1738,1739,1740,1741,1742,1743,1744,1745,1746,1747,1748,1749,1750,1751,1752,1753,1754,1755,1756,1757,1758,1759,1760,1761,1762,1763,1764,1765,1766,1767,1768,1769,1770,1771,1772,1773,1774,1775,1776,1777,1778,1779,1780,1781,1782,1783,1784,1785,1786,1787,1788,1789,1790,1791,1792,1793,1794,1795,1796,1797,1798,1799,1800,1801,1802,1803,1804,1805,1806,1807,1808,1809,1810,1811,1812,1813,1814,1815,1816,1817,1818,1819,1820,1821,1822,1823,1824,1825,1826,1827,1828,1829,1830,1831,1832,1833,1834,1835,1836,1837,1838,1839,1840,1841,1842,1843,1844,1845,1846,1847,1848,1849,1850,1851,1852,1853,1854,1855,1856,1857,1858,1859,1860,1861,1862,1863,1864,1865,1866,1867,1868,1869,1870,1871,1872,1873,1874,1875,1876,1877,1878,1879,1880,1881,1882,1883,1884,1885,1886,1887,1888,1889,1890,1891,1892,1893,1894,1895,1896,1897,1898,1899,1900,1901,1902,1903,1904,1905,1906,1907,1908,1909,1910,1911,1912,1913,1914,1915,1916,1917,1918,1919,1920,1921,1922,1923,1924,1925,1926,1927,1928,1929,1930,1931,1932,1933,1934,1935,1936,1937,1938,1939,1940,1941,1942,1943,1944,1945,1946,1947,1948,1949,1950,1951,1952,1953,1954,1955,1956,1957,1958,1959,1960,1961,1962,1963,1964,1965,1966,1967,1968,1969,1970,1971,1972,1973,1974,1975,1976,1977,1978,1979,1980,1981,1982,1983,1984,1985,1986,1987,1988,1989,1990,1991,1992,1993,1994,1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005,2006,2007,2008,2009,2010,2011,2012,2013,2014,2015,2016,2017,2018,2019,2020,2021,2022,2023,2024,2025,2026,2027,2028,2029,2030,2031,2032,2033,2034,2035,2036,2037,2038,2039,2040,2041,2042,2043,2044,2045,2046,2047,2048
]

func expr_arrays()
{
    var StructWithArrays s1 = (
        .intarr = [111,222],
        .intarr2 = [
            [1001, 1002, 1003],
            [2001, 2002, 2003],
        ],
        .intarr3 = [
            [
                [101, 102, 103]
            ],
            [
                [201, 202, 203]
            ],
        ],
        .nested = [
            (.boolarr = [true, false]),
            (.boolarr = [false, true]),
        ]
    )
    var int x = s1.intarr[0]
    assert x == 111
    var usize i = expr_get_some_number()
    var usize j = expr_get_some_number()
    x = s1.intarr[i]
    s1.intarr[i] = 123
    assert s1.intarr[0] == 123
    assert s1.intarr[expr_get_some_number()+1] == 222
    x = s1.intarr2[0,0]
    x = s1.intarr2[0,2]
    x = s1.intarr2[1,2]
    assert x == 2003
    assert s1.intarr2[i,2] == 1003
    assert s1.intarr2[1,j] == 2001
    i = 1
    j = 2
    assert s1.intarr2[i,j] == 2003
    i = 0
    assert s1.intarr2[2*i,j-1] == 1002

    x = s1.intarr3[1,0,2]
    s1.intarr3[1,0,2] += 1
    assert s1.intarr3[1,0,2] == 204
    assert x == 203
    j -= 2
    assert s1.intarr3[1,j,2] == 204
    i += 1
    assert s1.intarr3[i,j,2] == 204
    assert s1.intarr3[1,j,i] == 202

    assert s1.nested[0].boolarr[0]
    assert not s1.nested[0].boolarr[1]
    assert not s1.nested[1].boolarr[0]
    assert s1.nested[1].boolarr[1]

    assert large_array[0] == 1
    assert large_array[1023] == 1024
    assert large_array[1024] == 1025
    assert large_array[2047] == 2048
    assert large_array[i] == 2
    assert large_array[2046+i] == 2048
}

func expr_array_pointer()
{
    [2]byte arr = [11,22]
    assert arr[0] == 11
    assert arr[1] == 22
    ref [2]byte arrptr = refto arr
    assert arrptr[0] == 11
    assert arrptr[1] == 22
    # TODO test multi-dimensional arrays
}

func expr_use_versioned()
{
    var VersionedEnum enu = .a
    enu = .get_default()
    enu = .b
    enu = .c
    ref var VersionedStruct stru = .get_default()
    stru.a = true
    stru.b.x = 123
    stru.b.y = 456
    stru.c = 255
}

# Test of deeply nested recursive expressions
data uint64 nested_int1 = 1
data uint64 nested_int2 = nested_int1+nested_int1+nested_int1+nested_int1
data uint64 nested_int3 = nested_int2+nested_int2+nested_int2+nested_int2
data uint64 nested_int4 = nested_int3+nested_int3+nested_int3+nested_int3
data uint64 nested_int5 = nested_int4+nested_int4+nested_int4+nested_int4
data uint64 nested_int6 = nested_int5+nested_int5+nested_int5+nested_int5
data uint64 nested_int7 = nested_int6+nested_int6+nested_int6+nested_int6
data uint64 nested_int8 = nested_int7+nested_int7+nested_int7+nested_int7
data uint64 nested_int9 = nested_int8+nested_int8+nested_int8+nested_int8
data uint64 nested_int10 = nested_int9+nested_int9+nested_int9+nested_int9
data uint64 nested_int11 = nested_int10+nested_int10+nested_int10+nested_int10
data uint64 nested_int12 = nested_int11+nested_int11+nested_int11+nested_int11
data uint64 nested_int13 = nested_int12+nested_int12+nested_int12+nested_int12
data uint64 nested_int14 = nested_int13+nested_int13+nested_int13+nested_int13
data uint64 nested_int15 = nested_int14+nested_int14+nested_int14+nested_int14
data uint64 nested_int16 = nested_int15+nested_int15+nested_int15+nested_int15
data uint64 nested_int17 = nested_int16+nested_int16+nested_int16+nested_int16
data uint64 nested_int18 = nested_int17+nested_int17+nested_int17+nested_int17
data uint64 nested_int19 = nested_int18+nested_int18+nested_int18+nested_int18
data uint64 nested_int20 = nested_int19+nested_int19+nested_int19+nested_int19
data uint64 nested_int21 = nested_int20+nested_int20+nested_int20+nested_int20

data uint64 rnested_int21 = rnested_int20+rnested_int20+rnested_int20+rnested_int20
data uint64 rnested_int20 = rnested_int19+rnested_int19+rnested_int19+rnested_int19
data uint64 rnested_int19 = rnested_int18+rnested_int18+rnested_int18+rnested_int18
data uint64 rnested_int18 = rnested_int17+rnested_int17+rnested_int17+rnested_int17
data uint64 rnested_int17 = rnested_int16+rnested_int16+rnested_int16+rnested_int16
data uint64 rnested_int16 = rnested_int15+rnested_int15+rnested_int15+rnested_int15
data uint64 rnested_int15 = rnested_int14+rnested_int14+rnested_int14+rnested_int14
data uint64 rnested_int14 = rnested_int13+rnested_int13+rnested_int13+rnested_int13
data uint64 rnested_int13 = rnested_int12+rnested_int12+rnested_int12+rnested_int12
data uint64 rnested_int12 = rnested_int11+rnested_int11+rnested_int11+rnested_int11
data uint64 rnested_int11 = rnested_int10+rnested_int10+rnested_int10+rnested_int10
data uint64 rnested_int10 = rnested_int9+rnested_int9+rnested_int9+rnested_int9
data uint64 rnested_int9 = rnested_int8+rnested_int8+rnested_int8+rnested_int8
data uint64 rnested_int8 = rnested_int7+rnested_int7+rnested_int7+rnested_int7
data uint64 rnested_int7 = rnested_int6+rnested_int6+rnested_int6+rnested_int6
data uint64 rnested_int6 = rnested_int5+rnested_int5+rnested_int5+rnested_int5
data uint64 rnested_int5 = rnested_int4+rnested_int4+rnested_int4+rnested_int4
data uint64 rnested_int4 = rnested_int3+rnested_int3+rnested_int3+rnested_int3
data uint64 rnested_int3 = rnested_int2+rnested_int2+rnested_int2+rnested_int2
data uint64 rnested_int2 = rnested_int1+rnested_int1+rnested_int1+rnested_int1
data uint64 rnested_int1 = 1

func expr_deeply_nested()
{
    uint64 i1 = 1
    uint64 i2 = i1+i1+i1+i1
    uint64 i3 = i2+i2+i2+i2
    uint64 i4 = i3+i3+i3+i3
    uint64 i5 = i4+i4+i4+i4
    uint64 i6 = i5+i5+i5+i5
    uint64 i7 = i6+i6+i6+i6
    uint64 i8 = i7+i7+i7+i7
    uint64 i9 = i8+i8+i8+i8
    uint64 i10 = i9+i9+i9+i9
    uint64 i11 = i10+i10+i10+i10
    uint64 i12 = i11+i11+i11+i11
    uint64 i13 = i12+i12+i12+i12
    uint64 i14 = i13+i13+i13+i13
    uint64 i15 = i14+i14+i14+i14
    uint64 i16 = i15+i15+i15+i15
    uint64 i17 = i16+i16+i16+i16
    uint64 i18 = i17+i17+i17+i17
    uint64 i19 = i18+i18+i18+i18
    uint64 i20 = i19+i19+i19+i19
    uint64 i21 = i20+i20+i20+i20
    assert i21 == 1099511627776
}

func expr_usize_return() -> usize
{
    return 1
}

func expr_backend_optimize()
{
    var int a = expr_return(0)  # = 3
    var int x

    x = a + 0
    assert x == 3
    x = a - 0
    assert x == 3
    x = a * 0
    assert x == 0
    x = a * 1
    assert x == 3
    x = a / 1
    assert x == 3

    var [3,2]byte arr = [
        [11,22], [33,44], [55,66]
    ]
    assert arr[0,0] == 11
    assert arr[0,1] == 22
    assert arr[1,0] == 33
    assert arr[1,1] == 44
    assert arr[2,0] == 55
    assert arr[2,1] == 66

    var usize i = expr_usize_return() # = 1
    assert arr[0,1-i] == 11
    assert arr[1-i,0] == 11
    assert arr[1-i,1] == 22
    assert arr[2-i,1-i] == 33

    x = 0
    assert x == 0
    assert i != 0
    x = -1
    assert x < 0
    assert x <= 0
    assert i > 0
    assert i >= 0
    if i == 0 { assert false }
    if i < 0 { assert false }
    if i <= 0 { assert false }
    while x > 0 { assert false }
    while x >= 0 { assert false }
    do { } while x == -2

    if i == 11 or i == 22 { assert false }
    if (i == 11) != (i == 22) { assert false }
}

# Completely missing indentation is allowed.
# (however, this should perhaps give some warnings...)
# Of course, one shouldn't write code like this ;)
func expr_missing_indentation() -> int
{
var
int
i
=
1
i
+=
1
+
(
8
+
2
)
if
i
>
2
{
i
+=
3
}
else
{
if
i
<
10
return
-1
}
bool
b
=
false
[
2
]
byte
arr
=
[
11
,
22
]
assert
i
==
15
return
123
}

func expressions_test()
{
    #expr_misc()     # TODO add assertions. implement div.
    expr_pointers()
    #expr_pointer_assign()  # TODO add assertions
    expr_booleans()
    expr_comparisons_int()
    expr_comparisons_bool()
    expr_typescopes()
    expr_calls()
    expr_struct_initf()
    expr_init_copy()
    #expr_fields()          # TODO add assertions. replace endless loop with real code
    expr_structs()          # TODO add assertions
    expr_arrays()
    expr_array_pointer()
    #expr_use_versioned()   # TODO add assertions. replace endless loop with real code
    expr_deeply_nested()
    expr_backend_optimize()
    expr_missing_indentation()
}