From f779f985f38279d64a4bbeec55202543d0604b85 Mon Sep 17 00:00:00 2001 From: Jerome Jackson Date: Thu, 15 Feb 2024 14:43:24 +0000 Subject: [PATCH] remove no-realloc-lhs compiler flag (alloc on assign) in github workflow --- .github/workflows/config/make.inc.gfort | 4 ++-- .github/workflows/config/make.inc.gfort+openmpi | 4 ++-- src/wannier_prog.F90 | 2 +- 3 files changed, 5 insertions(+), 5 deletions(-) diff --git a/.github/workflows/config/make.inc.gfort b/.github/workflows/config/make.inc.gfort index 7f08fa9df..684c261e9 100644 --- a/.github/workflows/config/make.inc.gfort +++ b/.github/workflows/config/make.inc.gfort @@ -8,8 +8,8 @@ F90 = gfortran #MPIF90 = mpgfortran #mpif90 # Options for debugging When we move to 4.9 add -fsanitize=leak -FCOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fno-realloc-lhs -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace -std=f2008 -DW90DEV -LDOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fno-realloc-lhs -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace -std=f2008 +FCOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace -std=f2008 -DW90DEV +LDOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace -std=f2008 #======================= # System LAPACK and BLAS diff --git a/.github/workflows/config/make.inc.gfort+openmpi b/.github/workflows/config/make.inc.gfort+openmpi index 574e9aad8..13b80b7bf 100644 --- a/.github/workflows/config/make.inc.gfort+openmpi +++ b/.github/workflows/config/make.inc.gfort+openmpi @@ -8,8 +8,8 @@ COMMS = mpi MPIF90 = mpif90 # Options for debugging When we move to 4.9 add -fsanitize=leak -FCOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fno-realloc-lhs -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace -DW90DEV -LDOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fno-realloc-lhs -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace +FCOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace -DW90DEV +LDOPTS = -fprofile-arcs -ftest-coverage -fstrict-aliasing -fno-omit-frame-pointer -fcheck=bounds,do,recursion,pointer -ffree-form -Wall -Waliasing -Wsurprising -Wline-truncation -Wno-tabs -Wno-uninitialized -Wno-unused-dummy-argument -Wno-unused -Wno-character-truncation -O1 -g -fbacktrace #======================= # System LAPACK and BLAS diff --git a/src/wannier_prog.F90 b/src/wannier_prog.F90 index e4240d1b9..6b70f0474 100644 --- a/src/wannier_prog.F90 +++ b/src/wannier_prog.F90 @@ -181,7 +181,7 @@ program wannier call w90_get_nn(common_data, nn, stdout, stderr, ierr) nkl = count(distk == rank) ! number of kpoints this rank - write (*, *) 'rank, nw, nb, nk, nn, nk(rank): ', rank, nw, nb, nk, nn, nkl + !write (*, *) 'rank, nw, nb, nk, nn, nk(rank): ', rank, nw, nb, nk, nn, nkl allocate (mloc(nb, nb, nn, nkl)) allocate (u(nw, nw, nk))