use PRTd64

khushi-411 · khushi-411 · commit de9bd28270e7 · 2023-09-13T14:10:43.000+05:30
diff --git a/src/libasr/runtime/lfortran_intrinsics.c b/src/libasr/runtime/lfortran_intrinsics.c
@@ -1991,7 +1991,7 @@ LFORTRAN_API void _lfortran_read_int64(int64_t *p, int32_t unit_num)
 {
     if (unit_num == -1) {
         // Read from stdin
-        scanf("%ld", p);
+        scanf("%" PRId64, p);
         return;
     }
 
@@ -2005,7 +2005,7 @@ LFORTRAN_API void _lfortran_read_int64(int64_t *p, int32_t unit_num)
     if (unit_file_bin) {
         fread(p, sizeof(*p), 1, filep);
     } else {
-        fscanf(filep, "%ld", p);
+        fscanf(filep, "%" PRId64, p);
     }
 }
 

Original file line number	Diff line number	Diff line change
`@@ -1991,7 +1991,7 @@ LFORTRAN_API void _lfortran_read_int64(int64_t *p, int32_t unit_num)`
`1991`	`1991`	`{`
`1992`	`1992`	`if (unit_num == -1) {`
`1993`	`1993`	`// Read from stdin`
`1994`		`- scanf("%ld", p);`
	`1994`	`+ scanf("%" PRId64, p);`
`1995`	`1995`	`return;`
`1996`	`1996`	`}`
`1997`	`1997`
`@@ -2005,7 +2005,7 @@ LFORTRAN_API void _lfortran_read_int64(int64_t *p, int32_t unit_num)`
`2005`	`2005`	`if (unit_file_bin) {`
`2006`	`2006`	`fread(p, sizeof(*p), 1, filep);`
`2007`	`2007`	`} else {`
`2008`		`- fscanf(filep, "%ld", p);`
	`2008`	`+ fscanf(filep, "%" PRId64, p);`
`2009`	`2009`	`}`
`2010`	`2010`	`}`
`2011`	`2011`