More informative error messages

Author: castelao

src/nf/nf_layer_submodule.f90

@@ -296,7 +296,7 @@ elemental module function get_num_params(self) result(num_params)
       type is (rnn_layer)
         num_params = this_layer % get_num_params()
       class default
-        error stop 'Unknown layer type.'
+        error stop 'get_num_params() with unknown layer type.'
     end select
 
   end function get_num_params
@@ -323,7 +323,7 @@ pure module function get_params(self) result(params)
       type is (rnn_layer)
         params = this_layer % get_params()
       class default
-        error stop 'Unknown layer type.'
+        error stop 'get_params() with unknown layer type.'
     end select
 
   end function get_params
@@ -348,7 +348,7 @@ pure module function get_gradients(self) result(gradients)
       type is (reshape3d_layer)
         ! No gradients to get.
       class default
-        error stop 'Unknown layer type.'
+        error stop 'get_gradients() with unknown layer type.'
     end select
 
   end function get_gradients
@@ -405,7 +405,7 @@ module subroutine set_params(self, params)
           // 'on a zero-parameter layer; nothing to do.'
 
           class default
-        error stop 'Unknown layer type.'
+        error stop 'set_params() with unknown layer type.'
     end select
 
   end subroutine set_params