Fix glfwGetProcAddress interface

gadjalin · Sep 18, 2024 · 19c8c11 · 19c8c11
1 parent f47f573
commit 19c8c11
Showing 1 changed file with 2 additions and 5 deletions.
diff --git a/src/glf90w.f90 b/src/glf90w.f90
@@ -3663,12 +3663,9 @@ function glfwGetProcAddress(procname) result(procaddr)
 
             implicit none
             character(len=*, kind=c_char), intent(in) :: procname
-            procedure(GLFWglproc), pointer            :: procaddr
+            type(c_funptr)                            :: procaddr
 
-            type(c_funptr) :: c_procaddr
-
-            c_procaddr = c_glfwGetProcAddress(f_c_string(procname))
-            call c_f_procpointer(c_procaddr, procaddr)
+            procaddr = c_glfwGetProcAddress(f_c_string(procname))
         end function glfwGetProcAddress
 
         function glfwVulkanSupported() result(supported)