added unit test 40 to the VS project.

Author: jacobwilliams

visual_studio/jsonfortranlib/jsonfortranlib.vfproj

@@ -41,10 +41,10 @@
 				<Tool Name="VFPreBuildEventTool"/>
 				<Tool Name="VFPostBuildEventTool"/></Configuration></Configurations>
 	<Files>
-		<Filter Name="include">
+		<Filter Name="include" Filter="inc">
 		<File RelativePath="..\..\src\json_macros.inc"/>
 		<File RelativePath="..\..\src\json_initialize_arguments.inc"/></Filter>
-		<Filter Name="src" Filter="F90;f90;for;f;fpp;ftn;def;odl;idl">
+		<Filter Name="src" Filter="F90;f90">
 		<File RelativePath="..\..\src\json_file_module.F90"/>
 		<File RelativePath="..\..\src\json_kinds.F90"/>
 		<File RelativePath="..\..\src\json_module.F90"/>

visual_studio/jsonfortrantest/jsonfortrantest.f90

@@ -46,6 +46,7 @@ program jsonfortrantest
     use jf_test_37_mod , only: test_37
     use jf_test_38_mod , only: test_38
     use jf_test_39_mod , only: test_39
+    use jf_test_40_mod , only: test_40
 
     implicit none
 
@@ -92,6 +93,7 @@ program jsonfortrantest
     call test_37(n_errors); if (n_errors /= 0) stop 1
     call test_38(n_errors); if (n_errors /= 0) stop 1
     call test_39(n_errors); if (n_errors /= 0) stop 1
+    call test_40(n_errors); if (n_errors /= 0) stop 1
 
     end program jsonfortrantest
 !*****************************************************************************************

visual_studio/jsonfortrantest/jsonfortrantest.vfproj

@@ -85,5 +85,6 @@
 		<File RelativePath="..\..\src\tests\jf_test_37.F90"/>
 		<File RelativePath="..\..\src\tests\jf_test_38.F90"/>
 		<File RelativePath="..\..\src\tests\jf_test_39.F90"/>
+		<File RelativePath="..\..\src\tests\jf_test_40.F90"/>
 		<File RelativePath=".\jsonfortrantest.f90"/></Filter></Files>
 	<Globals/></VisualStudioProject>