with glut;use glut;

procedure gl_test01 is

win:integer;

begin

win:=glutcreatewindow("GL_test");

end gl_test01;

连接报告:

D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0xbb): undefined reference to `glutCreateWindow'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x196): undefined reference to `glutInitDisplayString'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x26b): undefined reference to `glutSetWindowTitle'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x340): undefined reference to `glutSetIconTitle'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x418): undefined reference to `glutBitmapLength'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x4f6): undefined reference to `glutStrokeLength'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x5d4): undefined reference to `glutAddMenuEntry'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x6ac): undefined reference to `glutAddSubMenu'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x787): undefined reference to `glutChangeToMenuEntry'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x862): undefined reference to `glutChangeToSubMenu'
D:\Program Files\Ada Units\OtherLib\glut.o:glut.adb:(.text+0x937): undefined reference to `glutExtensionSupported'
gnatlink: cannot call D:\PROGRA~1\ADAUNI~1\GPL2006\bin\gcc.exe
gnatmake: *** link failed.