again

Author: ricor07

test/test_conv1d_network.f90

@@ -6,7 +6,7 @@ program test_conv1d_network
     implicit none
 
     type(network) :: net
-    real, allocatable :: sample_input(:,:), output(:,:), o(:)
+    real, allocatable :: sample_input(:,:), output(:,:)
     logical :: ok = .true.
 
     ! 3-layer convolutional network

test/test_conv2d_network.f90

@@ -6,7 +6,7 @@ program test_conv2d_network
   implicit none
 
   type(network) :: net
-  real, allocatable :: sample_input(:,:,:), output(:,:,:), o(:)
+  real, allocatable :: sample_input(:,:,:), output(:,:,:)
   logical :: ok = .true.
 
   ! 3-layer convolutional network
@@ -60,8 +60,7 @@ program test_conv2d_network
       call cnn % forward(sample_input)
       call cnn % backward(y)
       call cnn % update(optimizer=sgd(learning_rate=1.))
-      o = cnn % layers(3) % get_params()
-      print *, o
+
       if (all(abs(cnn % predict(sample_input) - y) < tolerance)) exit
     end do