# Test generated by:
# ../../../glsl-1.10/variable-index-write.sh 1.20

[require]
GLSL >= 1.20

[vertex shader]
void main() { gl_Position = gl_ModelViewProjectionMatrix * gl_Vertex; }

[fragment shader]
uniform mat2x2 src_matrix;
uniform vec2 v;
uniform vec2 expect;
uniform int index;
uniform int col;
uniform vec2 value;

void main()
{
    mat2x2[3] dst_matrix = mat2x2[3](mat2x2(0.0), mat2x2(0.0), mat2x2(0.0));

    /* Patch the supplied matrix with the supplied value.  If the resulting
     * matrix is correct, it will transform the input vector to the expected
     * value.  Verify that the distance between the result and the expected
     * vector is less than epsilon.
     *
     * NOTE: This test assumes that reads of arrays using non-constant
     * indicies works correctly.  If reads and writes happen to fail in an
     * identical manner, this test may give false positives.
     */
    dst_matrix[1] = src_matrix;
    dst_matrix[1][1] = value;
    gl_FragColor = (distance(dst_matrix[1] * v, expect) < 1e-6)
        ? vec4(0.0, 1.0, 0.0, 1.0) : vec4(1.0, 0.0, 0.0, 1.0);
}

[test]
clear color 0.5 0.5 0.5 0.5
clear
ortho

uniform vec2 v 0.803161418975390 0.852987140792140
uniform vec2 expect 0.708718134966688 1.452243795483797
uniform mat2x2 src_matrix 0.241498998195656 0.861223395812970 666.0 777.0
uniform vec2 value 0.603473877011433 0.891622340451180
draw rect 60 5 10 10
probe rgb 65 10 0.0 1.0 0.0