diff --git a/media-radio/wsjtx_improved/files/wsjtx-3.0.0-gcc16.patch b/media-radio/wsjtx_improved/files/wsjtx-3.0.0-gcc16.patch
new file mode 100644
index 0000000000000..e4d153237b805
--- /dev/null
+++ b/media-radio/wsjtx_improved/files/wsjtx-3.0.0-gcc16.patch
@@ -0,0 +1,28 @@
+diff --git a/lib/jplsubs.f b/lib/jplsubs.f
+index 0920bc3..e1447e5 100755
+--- a/lib/jplsubs.f
++++ b/lib/jplsubs.f
+@@ -533,7 +533,7 @@ C
+ 
+ C+++++++++++++++++++++++++
+ C
+-      SUBROUTINE SPLIT(TT,FR)
++      SUBROUTINE SSPLIT(TT,FR)
+ C
+ C+++++++++++++++++++++++++
+ C
+@@ -754,11 +754,11 @@ C       ********** MAIN ENTRY POINT **********
+       IF(ET2(1) .EQ. 0.D0) RETURN
+ 
+       S=ET2(1)-.5D0
+-      CALL SPLIT(S,PJD(1))
+-      CALL SPLIT(ET2(2),PJD(3))
++      CALL SSPLIT(S,PJD(1))
++      CALL SSPLIT(ET2(2),PJD(3))
+       PJD(1)=PJD(1)+PJD(3)+.5D0
+       PJD(2)=PJD(2)+PJD(4)
+-      CALL SPLIT(PJD(2),PJD(3))
++      CALL SSPLIT(PJD(2),PJD(3))
+       PJD(1)=PJD(1)+PJD(3)
+ 
+ C       ERROR RETURN FOR EPOCH OUT OF RANGE
diff --git a/media-radio/wsjtx_improved/wsjtx_improved-3.0.0-r1.ebuild b/media-radio/wsjtx_improved/wsjtx_improved-3.0.0-r1.ebuild
index 6a368b73fe2e6..4cd3baf2242dc 100644
--- a/media-radio/wsjtx_improved/wsjtx_improved-3.0.0-r1.ebuild
+++ b/media-radio/wsjtx_improved/wsjtx_improved-3.0.0-r1.ebuild
@@ -37,6 +37,7 @@ PATCHES=(
 	"${FILESDIR}/wsjtx-2.3.0-drop-docs.patch"
 	"${FILESDIR}/wsjtx-clang.patch"
 	"${FILESDIR}/wsjtx-3.0.0-fix-sound-dir.patch"
+	"${FILESDIR}/wsjtx-3.0.0-gcc16.patch"
 	"${FILESDIR}/wsjtx-2.8.0-qt692-audio.patch"
 )