From a73f718742d913ef2be02dc5be9653737f028265 Mon Sep 17 00:00:00 2001 From: Milan Skocic Date: Sat, 2 Dec 2023 11:53:54 +0100 Subject: [PATCH] BUG: Fix public statement for YEAR. --- srcgen/utilities.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/srcgen/utilities.f90 b/srcgen/utilities.f90 index 62050fa..e4e5488 100644 --- a/srcgen/utilities.f90 +++ b/srcgen/utilities.f90 @@ -406,7 +406,7 @@ subroutine write_all_constants(fcodata, ffortran, fcheader, fpython, fcpython, p end do ! fortran - write(ffortran, "(A,/)") 'integer(c_int), protected, bind(C,name="YEAR") :: YEAR = ' // props%year + write(ffortran, "(A,/)") 'integer(c_int), protected, public, bind(C,name="YEAR") :: YEAR = ' // props%year ! C Code write(fcheader, "(A,/)") "ADD_IMPORT extern const int YEAR;" ! python