refac(srting_test): wrap workarounds in blocks

Author: rouson

test/string_test.F90

@@ -60,9 +60,11 @@ function extracts_key() result(passed)
       passed = line%get_json_key() == string_t("foo")
     end associate
 #else
-    type(string_t) line
-    line = string_t('"foo" : "bar"')
-    passed = line%get_json_key() == string_t("foo")
+    block
+      type(string_t) line
+      line = string_t('"foo" : "bar"')
+      passed = line%get_json_key() == string_t("foo")
+    end block
 #endif
   end function
 
@@ -74,9 +76,11 @@ function extracts_real_value() result(passed)
       passed = line%get_json_value(key=string_t("pi"), mold=1.) == 3.14159
     end associate
 #else
-    type(string_t) line
-    line = string_t('"pi" : 3.14159')
-    passed = line%get_json_value(key=string_t("pi"), mold=1.) == 3.14159
+    block
+      type(string_t) line
+      line = string_t('"pi" : 3.14159')
+      passed = line%get_json_value(key=string_t("pi"), mold=1.) == 3.14159
+    end block
 #endif
   end function
 
@@ -88,9 +92,11 @@ function extracts_string_value() result(passed)
       passed = line%get_json_value(key=string_t("foo"), mold=string_t("")) == string_t("bar")
     end associate
 #else
-    type(string_t) line
-    line = string_t('"foo" : "bar"')
-    passed = line%get_json_value(key=string_t("foo"), mold=string_t("")) == string_t("bar")
+    block
+      type(string_t) line
+      line = string_t('"foo" : "bar"')
+      passed = line%get_json_value(key=string_t("foo"), mold=string_t("")) == string_t("bar")
+    end block
 #endif
   end function
 
@@ -102,9 +108,11 @@ function extracts_integer_value() result(passed)
       passed = line%get_json_value(key=string_t("an integer"), mold=0) == 99
     end associate
 #else
-    type(string_t) line
-    line = string_t('"an integer" : 99')
-    passed = line%get_json_value(key=string_t("an integer"), mold=0) == 99
+    block
+      type(string_t) line
+      line = string_t('"an integer" : 99')
+      passed = line%get_json_value(key=string_t("an integer"), mold=0) == 99
+    end block
 #endif
   end function
 
@@ -126,18 +134,20 @@ function extracts_logical_value() result(passed)
       end associate
     end associate
 #else
-    type(string_t) key_true_pair, key_false_pair, trailing_comma
-    logical  true, false, true_too
+    block
+      type(string_t) key_true_pair, key_false_pair, trailing_comma
+      logical  true, false, true_too
 
-    key_true_pair = string_t('"yada yada" : true')
-    key_false_pair = string_t('"blah blah" : false')
-    trailing_comma = string_t('"trailing comma" : true,')
+      key_true_pair = string_t('"yada yada" : true')
+      key_false_pair = string_t('"blah blah" : false')
+      trailing_comma = string_t('"trailing comma" : true,')
 
-    true = key_true_pair%get_json_value(key=string_t("yada yada"), mold=.true.)
-    false = key_false_pair%get_json_value(key=string_t("blah blah"), mold=.true.)
-    true_too = trailing_comma%get_json_value(key=string_t("trailing comma"), mold=.true.)
+      true = key_true_pair%get_json_value(key=string_t("yada yada"), mold=.true.)
+      false = key_false_pair%get_json_value(key=string_t("blah blah"), mold=.true.)
+      true_too = trailing_comma%get_json_value(key=string_t("trailing comma"), mold=.true.)
 
-    passed = true .and. true_too .and. .not. false
+      passed = true .and. true_too .and. .not. false
+    end block
 #endif
   end function
 
@@ -151,11 +161,13 @@ function extracts_integer_array_value() result(passed)
       end associate
     end associate
 #else
-    type(string_t) key_integer_array_pair
-    integer, allocatable :: integer_array(:)
-    key_integer_array_pair = string_t('"some key" : [1, 2, 3],')
-    integer_array = key_integer_array_pair%get_json_value(key=string_t("some key"), mold=[integer::])
-    passed = all(integer_array == [1, 2, 3])
+    block
+      type(string_t) key_integer_array_pair
+      integer, allocatable :: integer_array(:)
+      key_integer_array_pair = string_t('"some key" : [1, 2, 3],')
+      integer_array = key_integer_array_pair%get_json_value(key=string_t("some key"), mold=[integer::])
+      passed = all(integer_array == [1, 2, 3])
+    end block
 #endif
   end function
 
@@ -203,9 +215,11 @@ function supports_concatenation_operator() result(passed)
       passed = prefix // infix // postfix == prefix // infix%string() // postfix 
     end associate
 #else
-    type(string_t) infix
-    infix = string_t(" yada yada ")
-    passed = prefix // infix // postfix == prefix // infix%string() // postfix 
+    block
+      type(string_t) infix
+      infix = string_t(" yada yada ")
+      passed = prefix // infix // postfix == prefix // infix%string() // postfix 
+    end block
 #endif
   end function
 
@@ -217,9 +231,11 @@ function constructs_from_default_integer() result(passed)
       passed = adjustl(trim(string%string())) == "1234567890"
     end associate
 #else
-    type(string_t) string
-    string = string_t(1234567890)
-    passed = adjustl(trim(string%string())) == "1234567890"
+    block 
+      type(string_t) string
+      string = string_t(1234567890)
+      passed = adjustl(trim(string%string())) == "1234567890"
+    end block
 #endif
   end function
 
@@ -252,9 +268,11 @@ function extracts_file_base_name() result(passed)
       passed = string%base_name() == "foo .bar"
     end associate
 #else
-    type(string_t) string
-    string = string_t(" foo .bar.too ")
-    passed = string%base_name() == "foo .bar"
+    block
+      type(string_t) string
+      string = string_t(" foo .bar.too ")
+      passed = string%base_name() == "foo .bar"
+    end block
 #endif
   end function
 
@@ -266,9 +284,11 @@ function extracts_file_name_extension() result(passed)
       passed = string%file_extension() == "too"
     end associate
 #else
-    type(string_t) string
-    string = string_t(" foo .bar.too ")
-    passed = string%file_extension() == "too"
+    block
+      type(string_t) string
+      string = string_t(" foo .bar.too ")
+      passed = string%file_extension() == "too"
+    end block
 #endif
   end function