OpenCores
URL https://opencores.org/ocsvn/theia_gpu/theia_gpu/trunk

Subversion Repositories theia_gpu

[/] [theia_gpu/] [branches/] [beta_2.0/] [regressions/] [single_core/] [test_expressions.vp] - Blame information for rev 218

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 218 diegovalve
 
2
//-------------------------------------------------------
3
function main()
4
{
5
 
6
        vector a = (5,5,5),b,c,d,e;
7
 
8
        b = a;
9
        c = (2,2,2);
10
        if ( a + b > c*a + 1 )
11
        {
12
                R66 = 0xdead;
13
                exit ;
14
        }
15
 
16
        if ( b != c + (3,3,3))
17
        {
18
                R66 = 0xdead;
19
                exit ;
20
        }
21
 
22
 
23
 
24
 
25
        vector result;
26
 
27
        result = (7,7,7) + a * 2 + (3,3,3);
28
 
29
        if (result != 20)
30
        {
31
                 R66 = 0xdead;
32
                 exit ;
33
        }
34
 
35
        //result = MyFunct1( a - 3, c, 2*c*a, a, c+(3,3,3) );
36
 
37
        // if (result != 2)
38
        // {
39
                // R66 = 0xdead;
40
                // exit ;
41
        // }
42
 
43
        R66 = 0xaced;
44
        exit ;
45
 
46
}
47
//-------------------------------------------------------
48
 
49
function MyFunct1( a, b, c ,d , e)
50
{
51
        return ( a*b - c*(d+e));
52
}
53
//-------------------------------------------------------

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.