chore: fix/redo 5358e

Author: rouson

test/modules/character_stop_code_test_m.F90

@@ -493,7 +493,7 @@ function check_string_t_1D_array() result(test_diagnosis)
     test_diagnosis = passing_test()
 
     associate(messages => string_t(["foo","bar"]))
-#ifdef __GFORTRAN__
+#ifndef __GFORTRAN__
       associate( &
          expected_stop_code => .csv. messages &
         ,stop_code => character_stop_code(messages) &