eliminated an "array temporary" warning in one of the unit tests on intel-debug.

Author: jacobwilliams

src/tests/jf_test_18.F90

@@ -30,6 +30,7 @@ subroutine test_18(error_cnt)
     integer :: ival
     logical :: found
     logical,dimension(4) :: ok
+    integer,dimension(4) :: iresult
 
     write(error_unit,'(A)') ''
     write(error_unit,'(A)') '================================='
@@ -53,19 +54,23 @@ subroutine test_18(error_cnt)
 
     call json%initialize(trailing_spaces_significant=.true.,&
                          case_sensitive_keys=.true.)
-    call go([1,2,3,4])
+    iresult = [1,2,3,4]
+    call go(iresult)
 
     call json%initialize(trailing_spaces_significant=.false.,&
                          case_sensitive_keys=.true.)
-    call go([1,2,1,2])
+    iresult = [1,2,1,2]
+    call go(iresult)
 
     call json%initialize(trailing_spaces_significant=.true.,&
                          case_sensitive_keys=.false.)
-    call go([1,1,3,3])
+    iresult = [1,1,3,3]
+    call go(iresult)
 
     call json%initialize(trailing_spaces_significant=.false.,&
                          case_sensitive_keys=.false.)
-    call go([1,1,1,1])
+    iresult = [1,1,1,1]
+    call go(iresult)
 
     !cleanup:
     call json%destroy(p)