autotests/input/highlight.cgis

0001 PROGRAM testtest;
0002
0003
0004 INTERFACE
0005
0006 extern inout int inputs_int[];
0007 extern out int nur_out[];
0008 extern in int nur_in[];
0009
0010 CODE
0011
0012 function jetzt_mach_schon(in int grenze, out int fak){
0013     int temp, counter;
0014     counter=grenze;
0015     temp=1;
0016     while(counter>1)
0017         temp*=(counter--);
0018     fak=temp;
0019 }
0020
0021 function mach_mal(inout int i){
0022     if(i==3) i=6;
0023     else if(i==4) i=24;
0024     else if(i>=5) jetzt_mach_schon(i,i);
0025     // 1 und 2: gleich.
0026 }
0027
0028 function mach_nochmal(in int k1, out int k2, in int vektor){
0029     int4 hossa;
0030     hossa=k1;
0031     int4 hasso;
0032     hasso=-vektor;
0033
0034   k2=(hasso|hossa>k1)?k1:-k1; //parse error before `|'
0035 // k2=(hasso||hossa>k1)?k1:-k1; //only works on expressions of equal dimension
0036
0037 }
0038
0039 CONTROL
0040     forall (int i in inputs_int:1D) do {
0041         mach_mal(i);
0042     }
0043     forall (int j in inputs_int:1D;
0044             int i in nur_out:1D;
0045             int vektor in nur_in:1D) do {
0046         mach_nochmal(j,i, vektor);
0047     }