Merge pull request #66 from sourceryinstitute/fix-tests

test(shallow/smart_pointer): make free() elemental

Author: rouson

test/shallow_m.f90

@@ -27,7 +27,7 @@ function construct() result(shallow)
         call shallow%start_counter
     end function
 
-    subroutine free(self)
+    impure elemental subroutine free(self)
         class(shallow_t), intent(inout) :: self
 
         deallocate(resource)

test/sp_smart_pointer_test_m.F90

@@ -56,7 +56,7 @@ function construct() result(object)
     call object%start_counter
   end function
 
-  subroutine free(self)
+  impure elemental subroutine free(self)
     class(object_t), intent(inout) :: self
 
     if (allocated(the_resource)) deallocate(the_resource)