Skip to content

Commit 4569999

Browse files
committed
Merge branch 'atmosphere/ra_cam_support_BOZ_Fix' into hotfix-v7.1 (PR #736)
This merge corrects a non-standard BOZ-literal constant in module_ra_cam_support. The GNU 10.1.0 compiler identified a non-standard BOZ-literal constant in module_ra_cam_support.F, failing to compile this file with the following error: module_ra_cam_support.F:11:35: 11 | integer, parameter:: bigint = O'17777777777' ! largest possible 32-bit integer | 1 Error: BOZ literal constant at (1) is neither a data-stmt-constant nor an actual argument to INT, REAL, DBLE, or CMPLX intrinsic function [see ‘-fno-allow-invalid-boz’] As per the Fortran 2003 standard, this constant should be typed with the INT intrinsic (or be used in a data statement): 4.4.1 Integer type C410 (R411) A boz-literal-constant shall appear only as a data-stmt-constant in a DATA statement, as the actual argument associated with the dummy argument A of the numeric intrinsic functions DBLE, REAL or INT, or as the actual argument associated with the X or Y dummy argument of the intrinsic function CMPLX. This merge uses the INT intrinsic with an argument of O'17777777777' to initialize the bigint parameter. * atmosphere/ra_cam_support_BOZ_Fix: Fix non-standard BOZ-literal integer constant in module_ra_cam_support
2 parents c4bd5dd + 08f8a8c commit 4569999

1 file changed

Lines changed: 1 addition & 1 deletion

File tree

src/core_atmosphere/physics/physics_wrf/module_ra_cam_support.F

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,7 @@ MODULE module_ra_cam_support
88
implicit none
99
integer, parameter :: r8 = 8
1010
real(r8), parameter:: inf = 1.e20 ! CAM sets this differently in infnan.F90
11-
integer, parameter:: bigint = O'17777777777' ! largest possible 32-bit integer
11+
integer, parameter:: bigint = int(O'17777777777') ! largest possible 32-bit integer
1212

1313
integer :: ixcldliq
1414
integer :: ixcldice

0 commit comments

Comments
 (0)