From 0fc4380514205de31cc00973b7c29ed40acb8f44 Mon Sep 17 00:00:00 2001
From: Damian Rouson <rouson@lbl.gov>
Date: Thu, 8 Feb 2024 12:14:12 -0800
Subject: [PATCH] fix(intrinsic_array_s): rm preprocessor typo

---
 src/assert/intrinsic_array_s.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/assert/intrinsic_array_s.F90 b/src/assert/intrinsic_array_s.F90
index c95d0e2..2d0b3b5 100644
--- a/src/assert/intrinsic_array_s.F90
+++ b/src/assert/intrinsic_array_s.F90
@@ -135,7 +135,7 @@ pure function one_allocated_component(self) result(one_allocated)
     character_self = trim(adjustl(character_self))
   end procedure
 
-#else // ifndef _CRAYFTN
+#else
 
     module procedure complex_array