anchor.diff:  
   program benchmark
   
  -    use iso_fortran_env, only: compiler_version, compiler_options 
  +    use iso_fortran_env, only: compiler_version, compiler_options
       use omp_lib, only: omp_get_thread_num, omp_get_num_threads
   
       use fibonacci
  
positive.code:     res_int = fib_naive(35)
      call system_clock(toc)
      write (*,111) "fib_naive(35) = ", res_int, &
          & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      res_int_pr = fib_iter(35)
      call system_clock(toc)
      write (*,111) "fib_iter(35) = ", res_int_pr, &
          & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      res_int_pr = fib_iter(1000)
      call system_clock(toc)
      write (*,111) "fib_iter(1000) = ", res_int_pr, &
          & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      write (*,*) ""
  
  
negative.code:     res_img_small = create(width_small, height_small, -0.5, 0.0, 4.0/width_small)
      call system_clock(toc)
      write (*,333) "mandelbrot_set (", width_small, ", ", height_small, ")", &
      & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      res_img = create(width, height, -0.5, 0.0, 4.0/width)
      call system_clock(toc)
      write (*,333) "mandelbrot_set (", width, ", ", height, ")", &
      & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      res_img = create_omp(width, height, -0.5, 0.0, 4.0/width)
      call system_clock(toc)
      write (*,333) "mandelbrot_set (OpenMP) (", width, ", ", height, ")", &
      & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      file_name = "mandelbrot.ppm"
      call res_img%write_ppm(file_name)
      call system_clock(toc)
      write (*,444) "mandelbrot_set written to file (PPM)", &
      & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      file_name = "mandelbrot_small.png"
      call res_img_small%write_png(file_name)
      call system_clock(toc)
      write (*,444) "mandelbrot_set (small) written to file(PNG)", &
      & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      call system_clock(tic)
      file_name = "mandelbrot.png"
      call res_img%write_png(file_name)
      call system_clock(toc)
      write (*,444) "mandelbrot_set written to file(PNG)", &
      & " Elapsed time: ", float(toc-tic)/rate * 1000, "ms"
  
      write (*,*) ""
  
      write (*,*) " done!"
  
  111 format (A25, I20, A, F0.3, A)
  222 format (A25, I8, A, A, /, A, F0.3, A)
  333 format (A35, I5, A, I5, A, 10X, A, F0.3, A)
  444 format (A48, 10X, A, F0.3, A)
  
  end program benchmark
  