From f6634c110881ebc65d44477bd615c98224b26077 Mon Sep 17 00:00:00 2001
From: DJDavies2 <david.davies@metoffice.gov.uk>
Date: Mon, 8 Jul 2024 14:58:22 +0100
Subject: [PATCH] CPP out LOC calls for NAG.

---
 cmake/fortran_features/finalization.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/cmake/fortran_features/finalization.F90 b/cmake/fortran_features/finalization.F90
index 98705523..b6fbe8ef 100644
--- a/cmake/fortran_features/finalization.F90
+++ b/cmake/fortran_features/finalization.F90
@@ -53,14 +53,18 @@ function AnimalType__ctor(animaltype_) result(self)
   type(AnimalType) :: self
   character(len=*) :: animaltype_
   self%m_kind = animaltype_
+#ifndef NAGFOR
   write(0,'(3A,I0)') "Constructing animal ",self%m_kind, " -- address = ",loc(self)
+#endif
   self%constructed = .true.
 end function
 
 subroutine AnimalType__assignment(animal_out,animal_in)
   type(AnimalType), intent(out) :: animal_out
   class(AnimalType), intent(in) :: animal_in
+#ifndef NAGFOR
   write(0,'(3A,I0,A,I0)') '   Copying ',animal_in%m_kind, " -- from address ", loc(animal_in), " to address ", loc(animal_out)
+#endif
   animal_out%m_kind = animal_in%m_kind
   animal_out%constructed = animal_in%constructed
 end subroutine