Merge pull request #19 from sourceryinstitute/fix-specification-expr

Fix specification expression in compiler test

Author: everythingfunctional

test/compiler_test.f90

@@ -200,8 +200,8 @@ function check_specification_expression() result(result_)
   contains
 
     subroutine finalize_specification_expression
-      type(object_t) :: object = object_t(dummy=0) ! Finalizes RHS function reference
-      object%dummy = avoid_unused_variable_warning
+      character(len=size([object_t(dummy=this_image())])) :: string ! Finalizes RHS function reference
+      string = ""
     end subroutine
 
   end function