Update examples/example_primes.f90

Co-authored-by: Ondřej Čertík <[email protected]>

Author: jacobwilliams

examples/example_primes.f90

@@ -53,7 +53,7 @@ subroutine fcn(m, n, x, fvec, iflag)
     integer, intent(inout) :: iflag
     real(wp), intent(in) :: x(n)
     real(wp), intent(out) :: fvec(m)
-    fvec(1) = iflag ! Suppress compiler warning:
+    fvec(1) = iflag ! Suppress compiler warning
     fvec = data_y - expr(data_x, x)
     end subroutine fcn