Merge pull request #129 from BerkeleyLab/rm-nag-workaround

chore(test): rm nagfor compiler workaround
BerkeleyLab · Mar 12, 2024 · 9e9bd45 · 9e9bd45
2 parents 5a51d22 + 5d4710b
commit 9e9bd45
Showing 1 changed file with 0 additions and 14 deletions.
diff --git a/test/trainable_engine_test_m.F90 → test/trainable_engine_test_m.f90 b/test/trainable_engine_test_m.F90 → test/trainable_engine_test_m.f90
@@ -370,14 +370,7 @@ function preserves_identity_mapping() result(test_passes)
       call assert(num_inputs == num_outputs,"trainable_engine_test_m(identity_mapping): # inputs == # outputs", &
         intrinsic_array_t([num_inputs, num_outputs]) &
       )
-#ifndef NAGFOR
       inputs = [(tensor_t(real([i,2*i], rkind)/num_pairs), i = 1, num_pairs)]
-#else
-      allocate(inputs(num_pairs))
-      do concurrent(i = 1:num_pairs)
-        inputs(i) = tensor_t(real([i,2*i], rkind)/num_pairs)
-      end do
-#endif
       associate(outputs => inputs)
         input_output_pairs = input_output_pair_t(inputs, outputs)
       end associate
@@ -424,14 +417,7 @@ function perturbed_identity_converges() result(test_passes)
       call assert(num_inputs == num_outputs,"trainable_engine_test_m(identity_mapping): # inputs == # outputs", &
         intrinsic_array_t([num_inputs, num_outputs]) &
       )
-#ifndef NAGFOR
       inputs = [(tensor_t(real([i,2*i], rkind)/(2*num_pairs)), i = 1, num_pairs)]
-#else
-      allocate(inputs(num_pairs))
-      do concurrent(i = 1:num_pairs)
-        inputs(i) = tensor_t(real([i,2*i], rkind)/num_pairs)
-      end do
-#endif
       associate(outputs => inputs)
         input_output_pairs = input_output_pair_t(inputs, outputs)
       end associate