Source position: ctgl.pas line 8487
type TglGetSubroutineIndex = function(
program_: GLuint;
shadertype: GLenum;
name_: PGLchar
):GLuint;