diff --git a/example/learn-addition.F90 b/example/learn-addition.F90
index 9a3294f08..05d94f91d 100644
--- a/example/learn-addition.F90
+++ b/example/learn-addition.F90
@@ -47,10 +47,7 @@ program learn_addition
     type(bin_t), allocatable :: bins(:)
     real, allocatable :: cost(:), random_numbers(:)
 
-#ifndef NAGFOR
     call random_init(image_distinct=.true., repeatable=.true.)
-#endif
-
     trainable_engine = perturbed_identity_network(perturbation_magnitude=0.05)
     call output(trainable_engine%to_inference_engine(), string_t("initial-network.json"))
 
diff --git a/example/learn-exponentiation.F90 b/example/learn-exponentiation.F90
index d3f6982a6..2cd967575 100644
--- a/example/learn-exponentiation.F90
+++ b/example/learn-exponentiation.F90
@@ -47,10 +47,7 @@ program learn_exponentiation
     type(bin_t), allocatable :: bins(:)
     real, allocatable :: cost(:), random_numbers(:)
 
-#ifndef NAGFOR
     call random_init(image_distinct=.true., repeatable=.true.)
-#endif
-
     trainable_engine = perturbed_identity_network(perturbation_magnitude=0.05)
     call output(trainable_engine%to_inference_engine(), string_t("initial-network.json"))
 
diff --git a/example/learn-microphysics-procedures.F90 b/example/learn-microphysics-procedures.F90
index a9e444731..473e30cea 100644
--- a/example/learn-microphysics-procedures.F90
+++ b/example/learn-microphysics-procedures.F90
@@ -39,10 +39,7 @@ program learn_microphysics_procedures
     integer, parameter :: nodes_per_layer(*) = [2, 72, 2]
     real, parameter :: cost_tolerance = 1.E-08
 
-#ifndef NAGFOR
     call random_init(image_distinct=.true., repeatable=.true.)
-#endif
-
     open(newunit=network_unit, file=network_file%string(), form='formatted', status='old', iostat=io_status, action='read')
 
     if (io_status == io_success) then
diff --git a/example/learn-multiplication.F90 b/example/learn-multiplication.F90
index 0e175ab47..9ab0881b2 100644
--- a/example/learn-multiplication.F90
+++ b/example/learn-multiplication.F90
@@ -47,10 +47,7 @@ program learn_multiplication
     type(bin_t), allocatable :: bins(:)
     real, allocatable :: cost(:), random_numbers(:)
 
-#ifndef NAGFOR
     call random_init(image_distinct=.true., repeatable=.true.)
-#endif
-
     trainable_engine = perturbed_identity_network(perturbation_magnitude=0.05)
     call output(trainable_engine%to_inference_engine(), string_t("initial-network.json"))
 
diff --git a/example/learn-power-series.f90 b/example/learn-power-series.f90
index e37d32eef..4785c26e0 100644
--- a/example/learn-power-series.f90
+++ b/example/learn-power-series.f90
@@ -47,10 +47,7 @@ program learn_power_series
     type(bin_t), allocatable :: bins(:)
     real, allocatable :: cost(:), random_numbers(:)
 
-#ifndef NAGFOR
     call random_init(image_distinct=.true., repeatable=.true.)
-#endif
-
     trainable_engine = perturbed_identity_network(perturbation_magnitude=0.05)
     call output(trainable_engine%to_inference_engine(), string_t("initial-network.json"))
 
diff --git a/example/learn-saturated-mixing-ratio.F90 b/example/learn-saturated-mixing-ratio.F90
index 08dcad2dc..30341e536 100644
--- a/example/learn-saturated-mixing-ratio.F90
+++ b/example/learn-saturated-mixing-ratio.F90
@@ -38,10 +38,7 @@ program train_saturated_mixture_ratio
     integer, parameter :: nodes_per_layer(*) = [2, 72, 1]
     real, parameter :: cost_tolerance = 1.E-08
 
-#ifndef NAGFOR
     call random_init(image_distinct=.true., repeatable=.true.)
-#endif
-
     open(newunit=network_unit, file=network_file%string(), form='formatted', status='old', iostat=io_status, action='read')
 
     if (io_status == io_success) then
diff --git a/example/train-and-write.F90 b/example/train-and-write.F90
index 4f492bdac..71c4b68ed 100644
--- a/example/train-and-write.F90
+++ b/example/train-and-write.F90
@@ -34,10 +34,7 @@ program train_and_write
     type(bin_t), allocatable :: bins(:)
     real, allocatable :: cost(:), random_numbers(:)
 
-#ifndef NAGFOR
     call random_init(image_distinct=.true., repeatable=.true.)
-#endif
-
     trainable_engine = perturbed_identity_network(perturbation_magnitude=0.2)
     call output(trainable_engine%to_inference_engine(), string_t("initial-network.json"))
 
diff --git a/test/main.F90 b/test/main.f90
similarity index 98%
rename from test/main.F90
rename to test/main.f90
index 4ee1d9d2c..de5ef1b74 100644
--- a/test/main.F90
+++ b/test/main.f90
@@ -20,9 +20,7 @@ program main
   integer :: passes=0, tests=0
 
   call cpu_time(t_start)
-#ifndef NAGFOR
   call random_init(repeatable=.true.,image_distinct=.true.)
-#endif
   call hyperparameters_test%report(passes, tests)
   call network_configuration_test%report(passes, tests)
   call training_configuration_test%report(passes, tests)