From 4fd6d5317b6194f5f604be202357c456f22784e2 Mon Sep 17 00:00:00 2001
From: "Igor S. Gerasimov" <i.s.ger@ya.ru>
Date: Thu, 2 Jan 2025 15:27:09 +0100
Subject: [PATCH] Implement tracy_connected

---
 public/TracyClient.F90 | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/public/TracyClient.F90 b/public/TracyClient.F90
index 3d3cc330..56e109b1 100644
--- a/public/TracyClient.F90
+++ b/public/TracyClient.F90
@@ -167,11 +167,19 @@ module tracy
 
   ! GPU is not supported yet
 
+  interface
+    function impl_tracy_connected() bind(C, name="___tracy_connected")
+      import
+      integer(c_int32_t) :: impl_tracy_connected
+    end function impl_tracy_connected
+  end interface
+
   !
   public :: tracy_c_zone_context
   !
   public :: tracy_set_thread_name
   public :: tracy_startup_profiler, tracy_shutdown_profiler, tracy_profiler_started
+  public :: tracy_connected
   public :: tracy_alloc_srcloc
   public :: tracy_zone_begin, tracy_zone_end
   public :: tracy_zone_set_properties
@@ -270,4 +278,8 @@ contains
       call tracy_emit_zone_value(ctx, value)
     end if
   end subroutine tracy_zone_set_properties
+
+  logical(1) function tracy_connected()
+    tracy_connected = impl_tracy_connected() /= 0_c_int32_t
+  end function tracy_connected
 end module tracy