Skip to content

Fix warnings raising with GCC 15 #1765

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
merged 4 commits into from
Oct 2, 2025
Merged

Fix warnings raising with GCC 15 #1765

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
de8c44b
Use iso_fortran_env with only and only if necessary
foxtran Sep 10, 2025
89c1fc5
Avoid unary operator following arithmetic operator
foxtran Sep 10, 2025
c5c5b5f
Undef define after its usage
foxtran Sep 10, 2025
f00902c
Undef variable before its redefinition
foxtran Sep 10, 2025
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions include/fms_platform.h
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -80,11 +80,13 @@ use,intrinsic :: iso_c_binding, only: c_double,c_float,c_int64_t, &

!If you do not want to use 64-bit integers.
#ifdef no_8byte_integers
#undef LONG_KIND
#define LONG_KIND INT_KIND
#endif

!If you want to use quad-precision.
#ifndef ENABLE_QUAD_PRECISION
#undef QUAD_KIND
#define QUAD_KIND DOUBLE_KIND
#endif

Expand Down
2 changes: 1 addition & 1 deletion test_fms/fms2_io/test_fms2_io.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -17,7 +17,7 @@
!***********************************************************************

program main
use, intrinsic :: iso_fortran_env
use, intrinsic :: iso_fortran_env, only: output_unit, error_unit
use argparse
use mpi
use mpp_mod
Expand Down
1 change: 0 additions & 1 deletion test_fms/fms2_io/test_get_is_valid.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -27,7 +27,6 @@ program test_get_is_valid
use netcdf , only: nf90_create, nf90_def_var, nf90_put_att, nf90_enddef, &
nf90_close, nf90_clobber, nf90_64bit_offset, nf90_double

use, intrinsic :: iso_fortran_env
use platform_mod

implicit none
Expand Down
2 changes: 2 additions & 0 deletions test_fms/mosaic2/write_files.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,6 +2,7 @@ module write_files_r4

#define TEST_FMS_KIND_ r4_kind
#include "write_files.inc"
#undef TEST_FMS_KIND_

end module

Expand All @@ -10,5 +11,6 @@ module write_files_r8

#define TEST_FMS_KIND_ r8_kind
#include "write_files.inc"
#undef TEST_FMS_KIND_

end module
4 changes: 2 additions & 2 deletions test_fms/sat_vapor_pres/test_sat_vapor_pres.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -958,8 +958,8 @@ function compute_es_liq_k(tem, TFREEZE) result (es)
!! see smithsonian meteorological tables page 350.
x = -7.90298_r8_kind*(TBASW/tem(i)-one) &
+5.02808_r8_kind*log10(TBASW/tem(i)) &
-1.3816e-07_r8_kind*(ten**((one-tem(i)/TBASW)*11.344_r8_kind)-one) &
+8.1328e-03_r8_kind*(ten**((TBASW/tem(i)-one)*-3.49149_r8_kind)-one)&
-1.3816e-07_r8_kind*(ten**(11.344_r8_kind *(one-tem(i)/TBASW))-one) &
+8.1328e-03_r8_kind*(ten**(-3.49149_r8_kind*(TBASW/tem(i)-one))-one) &
+log10(ESBASW)
esh2o = ten**(x)
es(i) = esh2o
Expand Down
2 changes: 1 addition & 1 deletion test_fms/tridiagonal/test_tridiagonal.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -98,7 +98,7 @@ program test_tridiagonal
enddo
!! check with stored data arrays
d = -1.0_kindl
ref_array = ref_array * -1.0_kindl
ref_array = -1.0_kindl * ref_array
call tri_invert(x, d)
do i=1, IN_LEN
if(ABS(x(1,1,i) - ref_array(1,1,i)) .gt. 1.0e-6_kindl) then
Expand Down
Loading