File: 0008-FixUninitializedArray.patch

package info (click to toggle)
dcl 7.5.2-4
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 21,172 kB
  • sloc: fortran: 48,440; f90: 12,803; ansic: 6,566; makefile: 4,747; ruby: 184; sh: 153
file content (26 lines) | stat: -rw-r--r-- 615 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
From: Youhei SASAKI <uwabami@gfd-dennou.org>
Date: Sat, 24 Jan 2026 03:18:56 +0900
Subject: Fix Array Uninialized for Reproducible Build

Forwarded: not-needed

Signed-off-by: Youhei SASAKI <uwabami@gfd-dennou.org>

--- a/src/env1/fonts/cvfont.f
+++ b/src/env1/fonts/cvfont.f
@@ -26,6 +26,15 @@
       OPEN(IU2,FILE=CDSNO,FORM='UNFORMATTED',STATUS='NEW')
       REWIND(IU2)
 
+*     / INITIALIZE ARRAYS FOR REPRODUCIBILITY /
+      DO 5 I=1,LEN
+        CKX(I) = CHAR(0)
+        CKY(I) = CHAR(0)
+    5 CONTINUE
+      DO 6 I=1,NCHAR
+        IPOSX(I) = 0
+    6 CONTINUE
+
 *     / LOAD TEXT FONT /
 
       NC=0