BUG: Fix pointer for string version.

MilanSkocic · Jan 10, 2024 · 24ffdbf · 24ffdbf
1 parent 8d089f7
commit 24ffdbf
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/codata_version.f90 b/src/codata_version.f90
@@ -46,7 +46,7 @@ function capi_get_version()bind(c,name="codata_get_version")result(cptr)
     allocate(character(len=len(fptr)+1) :: version_c)
 
     version_c = fptr // c_null_char
-    cptr = c_loc(fptr)
+    cptr = c_loc(version_c)
 end function
 
 end module codata__version