Fixes #2373 - improved unused dummy macro

GEOS-ESM · Sep 24, 2023 · 1cad971 · 1cad971
1 parent 042c593
commit 1cad971
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -11,6 +11,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0
 
 ### Changed
 
+- Modified fpp macro `_UNUSED_DUMMY(x) to use ASSOCIATE instead of PRINT.   With this change it can be used in PURE procedures.
+
 ### Fixed
 
 ### Removed

diff --git a/include/unused_dummy.H b/include/unused_dummy.H
@@ -10,4 +10,4 @@
 #ifdef _UNUSED_DUMMY
 #  undef _UNUSED_DUMMY
 #endif
-#define _UNUSED_DUMMY(x) if (.false.) print*,shape(x)
+#define _UNUSED_DUMMY(x) associate (q____ => x); end associate