fix(intrinsic_array_s): rm preprocessor typo

rouson · rouson · commit 0fc438051420 · 2024-02-08T12:14:55.000-08:00
diff --git 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
 
