embedding_layer: pr fixes

Author: OneAdder

src/nf/nf_embedding_layer_submodule.f90

@@ -88,7 +88,7 @@ module function get_params(self) result(params)
     real, pointer :: w_(:) => null()
 
     w_(1: product(shape(self % weights))) => self % weights
-    params = [w_]
+    params = w_
   end function get_params
 
   module function get_gradients(self) result(gradients)
@@ -97,7 +97,7 @@ module function get_gradients(self) result(gradients)
     real, pointer :: dw_(:) => null()
 
     dw_(1: product(shape(self % dw))) => self % dw
-    gradients = [dw_]
+    gradients = dw_
   end function get_gradients
 
   module subroutine set_params(self, params)

test/test_embedding_layer.f90

@@ -12,7 +12,7 @@ program test_embedding_layer
     print '(a)', 'test_embedding_layer: All tests passed.'
   else
     write(stderr, '(a)') 'test_embedding_layer: One or more tests failed.'
-    stop 1
+    error stop 1
   end if
 
 contains