Merge pull request #13 from sourceryinstitute/explicit-typing

fix(object): explicit typing in UDDTIO abstract interface

Author: Damian Rouson

src/object_interface.f90

@@ -50,6 +50,7 @@ pure module function user_defined(this) result(is_defined)
   abstract interface
     subroutine write_interface(self, unit, iotype, v_list, iostat, iomsg)
       import object
+      implicit none
       class(object), intent(in) :: self
       integer, intent(in) :: unit
       character(*), intent(in) :: iotype

tests/collective_subroutines_test.F90

@@ -81,7 +81,6 @@ function check_co_sum_without_result_image() result(result_)
         type(Result_t) :: result_
 
         integer i, j
-        integer, parameter :: result_image=2
 
         associate(me => this_image())
           i = me

tests/data_partition_test.f90

@@ -20,8 +20,6 @@ module data_partition_test
   function test_data_partition() result(tests)
     type(test_item_t) tests
 
-    integer iteration
-
     call partition%define_partitions( cardinality=num_particles)
 
     associate( me=>this_image() )