add an arl test

progs/vp/arl.txt

@@ -0,0 +1,9 @@
+!!ARBvp1.0
+PARAM arr[5]  = { {1,0,0,1}, {0,1,0,1}, {0,0,1,1}, {1,0,1,1}, {0,1,1,1} };
+ADDRESS addr;
+TEMP R0;
+MUL R0, {5.0}.x, vertex.color; 
+ARL addr.x, R0.x;
+MOV result.color, arr[addr.x];
+MOV result.position, vertex.position;
+END

progs/vp/vp-tris.c

@@ -78,7 +78,6 @@ static void Init( void )
    glProgramStringARB(GL_VERTEX_PROGRAM_ARB, GL_PROGRAM_FORMAT_ASCII_ARB,
 		      sz, (const GLubyte *) buf);
 
-   assert(glIsProgramARB(prognum));
    errno = glGetError();
    printf("glGetError = %d\n", errno);
    if (errno != GL_NO_ERROR)
@@ -89,6 +88,7 @@ static void Init( void )
       printf("errorpos: %d\n", errorpos);
       printf("%s\n", (char *)glGetString(GL_PROGRAM_ERROR_STRING_ARB));
    }
+   assert(glIsProgramARB(prognum));
 }