media-radio/wsjtx_improved: Fix build with GCC-16

Signed-off-by: Thomas Beierlein <tomjbe@gentoo.org>
This commit is contained in:
Thomas Beierlein
2026-01-18 18:07:41 +01:00
parent 189fba8883
commit cbfead4169
2 changed files with 29 additions and 0 deletions

View File

@@ -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

View File

@@ -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"
)