実行結果 ソース・プログラム module m_test use ISO_C_BINDING use opengl_types use gl use freeglut implicit none contains recursive subroutine display() bind(c) call glClear(GL_COLOR_BUFFER_BIT) call glBegin(GL_LINE_LOOP) call glVertex2d(-0.…