# Tests loading of a variable entry from an array of program locals.

[require]
GL >= 1.3
ARB_vertex_program
ARB_fragment_program

[vertex program]
!!ARBvp1.0
OPTION ARB_position_invariant;
PARAM vals[4] = { program.local[1..4] };
ADDRESS A0;
ARL A0.x, program.local[0].x;
MOV result.color, vals[A0.x+0];
END

[fragment program]
!!ARBfp1.0
MOV result.color, fragment.color;
END

[test]
ortho 0 1 0 1
parameter local_vp 0 (3.0, 0.0, 0.0, 0.0)
parameter local_vp 1 (0.5, 1.0, 2.0, 0.0)
parameter local_vp 2 (1.0, 0.0, 1.0, 0.0)
parameter local_vp 3 (1.0, 0.0, 0.5, 0.0)
parameter local_vp 4 (0.8, 1.0, 0.0, 0.0)
clear color 0.0 0.0 1.0 1.0
clear
draw rect 0 0 1 1
probe all rgba 0.8 1.0 0.0 0.0