fix(intrinsic_array_s): rm preprocessor typo

BerkeleyLab · Feb 8, 2024 · 0fc4380 · 0fc4380
1 parent 625929f
commit 0fc4380
Showing 1 changed file with 1 addition and 1 deletion.
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