Skip to content

Commit 57a339d

Browse files
committed
260128.165903.CST remove unwanted debugging lines in linalg.f90
1 parent a591644 commit 57a339d

File tree

4 files changed

+14
-20
lines changed

4 files changed

+14
-20
lines changed

fortran/common/linalg.f90

Lines changed: 1 addition & 8 deletions
Original file line numberDiff line numberDiff line change
@@ -39,7 +39,7 @@ module linalg_mod
3939
!
4040
! Started: July 2020
4141
!
42-
! Last Modified: Wed 28 Jan 2026 04:15:53 PM CST
42+
! Last Modified: Wed 28 Jan 2026 04:43:32 PM CST
4343
!--------------------------------------------------------------------------------------------------!
4444

4545
implicit none
@@ -2222,7 +2222,6 @@ function trueloc(x) result(loc)
22222222

22232223
! Postconditions
22242224
if (DEBUGGING) then
2225-
write(*, *) 'DEBUG: In TRUELOC, LOC = ', loc, ', X = ', x, ', N = ', size(x), linspace(1_IK, n, n)
22262225
call assert(all(loc >= 1 .and. loc <= n), '1 <= LOC <= N', srname)
22272226
call assert(size(loc) == count(x), 'SIZE(LOC) == COUNT(X)', srname)
22282227
call assert(all(x(loc)), 'X(LOC) is all TRUE', srname)
@@ -2491,8 +2490,6 @@ function linspace_r(xstart, xstop, n) result(x)
24912490
x(n) = xstop
24922491
end if
24932492

2494-
write(*, *) 'DEBUG: In LINSPACE_R, XSTART = ', xstart, ', XSTOP = ', xstop, ', N = ', n, ', X = ', x
2495-
24962493
!====================!
24972494
! Calculation ends !
24982495
!====================!
@@ -2526,10 +2523,6 @@ function linspace_i(xstart, xstop, n) result(x)
25262523

25272524
x = nint(linspace_r(real(xstart, RP), real(xstop, RP), n), IK) ! Rounded to the closest integer.
25282525

2529-
write(*,*) 'DEBUG: In LINSPACE_I - - - ', nint(1.0_RP, IK), nint(2.0_RP, IK), nint([1.0_RP, 2.0_RP], IK)
2530-
2531-
write(*, *) 'DEBUG: In LINSPACE_I, XSTART = ', xstart, ', XSTOP = ', xstop, ', N = ', n, ', X = ', x
2532-
25332526
!====================!
25342527
! Calculation ends !
25352528
!====================!

fortran/examples/README.txt

Lines changed: 8 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -16,15 +16,16 @@ particular, PRIMA_REAL_PRECISION = 64 (double precision) and PRIMA_INTEGER_KIND
1616
4. In the Makefiles, we impose Fortran 2018 standard in the compilation. It is our intention to be
1717
compliant with Fortran 2008 and above.
1818

19-
5. As of March 2024, the examples run successfully with the following compilers on Ubuntu 22.04.
20-
- AMD AOCC Flang 4.2
19+
5. As of January 2026, the examples run successfully with the following compilers on Ubuntu 24.04.
20+
- AMD AOCC Flang 5.1
21+
- AMD AOMP Flang 22.0
2122
- Arm Fortran Compiler 23.10
22-
- LLVM Flang 19.0
23-
- GNU gfortran 13.1
24-
- Intel ifx 2024.0
23+
- LLVM Flang 21.1
24+
- GNU gfortran 14.2
25+
- Intel ifx 2025.3
2526
- Intel ifort 2021.11.1
26-
- NAG Fortran Compiler Release 7.1 (Hanzomon) Build 7143
27-
- NVIDIA nvfortran 24.1
27+
- NAG Fortran Compiler Release 7.2(Shin-Urayasu) Build 7231
28+
- NVIDIA nvfortran 26.1
2829
The following discontinued compilers are not supported: Absoft af95, g95, Oracle sunf95.
2930

3031
Coded by Zaikun ZHANG (www.zhangzk.net).

fortran/tests/makefiles/Makefile.common

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -92,7 +92,7 @@ endif
9292

9393
# Define the compiler-dependent "fast flags", which will be used when FFLAGS is -fast.
9494
AFF := -O4
95-
DFF := -O3 -Ofast -ffast-math # As of AOCC 4.2, -Ofast implies -O3, but it is not clear whether it implies -ffast-math; -O4 and -O3 are equivalent for AOCC 5.1
95+
DFF := -O3 -Ofast -ffast-math # As of AOCC 5.1, -Ofast implies -O3, but it is not clear whether it implies -ffast-math; -O4 and -O3 are equivalent for AOCC 5.1
9696
FFF := -O3 -ffast-math # Suggested by flang 20.1.7
9797
GFF := -Ofast # -Ofast implies -O3 and -ffast-math
9898
MFF := -O3 -ffast-math # Suggested by AOMP 22.0-2 when running `amdflang --help | grep fast`
@@ -170,9 +170,9 @@ CHCKTST := $(TOOLS_DIR)/checktest
170170
# Define the tests.
171171
######################################################################################
172172
# Decide whether to test QP, i.e., REAL128.
173+
# AOCC 5.1 Flang is buggy concerning `nint` with REAL128 (https://github.com/zequipe/test_compiler/blob/master/test_nint.f90)
174+
# LLVM Flang 21.1.0 does not support REAL128.
173175
# nvfortran 26.1 do not support REAL128;
174-
# AOCC 4.2 Flang complains about a symbol lookup error: undefined symbol: "fort_rnumq_i8";
175-
# AOCC 5.0 Flang is buggy concerning `nint` with REAL128.
176176
TESTS_QP = atest gtest mtest ntest itest stest 9test xtest
177177
TESTS_NO_QP = dtest ftest rtest vtest
178178
TESTS = $(TESTS_QP) $(TESTS_NO_QP)

fortran/tests/tools/rdsrc

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1,6 +1,6 @@
11
#!/usr/bin/env bash
2-
# This script pre-processes the Fortran source code for Huawei Bisheng flang 2.1.0,
3-
# Arm Fortran Compiler 23.1, and AOCC 5.1 flang, which raise a false positive error about
2+
# This script pre-processes the Fortran source code for Huawei Bisheng Flang 2.1.0,
3+
# Arm Fortran Compiler 23.1, and AOCC 5.1 Flang, which raise a false positive error about
44
# out-bound subscripts when invoked with the -Mbounds flag.
55
# See https://github.com/flang-compiler/flang/issues/1238 and
66

0 commit comments

Comments
 (0)