Skip to content
Merged
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
4 changes: 2 additions & 2 deletions example/concurrent-inferences.f90
Original file line number Diff line number Diff line change
Expand Up @@ -3,7 +3,7 @@
program concurrent_inferences
!! This program demonstrates how to read a neural network from a JSON file
!! and use the network to perform concurrent inferences.
use fiats_m, only : neural_network_t, tensor_t, double_precision, double_precision_string_t, double_precision_file_t
use fiats_m, only : neural_network_t, tensor_t, double_precision, double_precision_file_t
use julienne_m, only : string_t, command_line_t, file_t
use assert_m, only : assert
use iso_fortran_env, only : int64, real64
Expand Down Expand Up @@ -143,7 +143,7 @@ real(real64) function openmp_time()
print *,"Elapsed system clock during `OpenMP` inference: ", openmp_time
end function

real(real64) function elemental_time
real(real64) function elemental_time()
integer(int64) t_start, t_finish, clock_rate

print *,"Performing elemental inferences inside `omp workshare`"
Expand Down