anchor.diff:  
   
       write (*,*) "Mandelbrot set"
  -    write (*,*) "=============="
  +    write (*,*) "--------------"
       call system_clock(tic)
       res_img = create(width, height, -0.5, 0.0, 4.0/width)
       call system_clock(toc)
  
positive.code: program benchmark
  
      use iso_fortran_env, only: compiler_version, compiler_options 
  
      use fibonacci
      use perfect_number
  
negative.code: 
      call system_clock(count_rate = rate)
  
      write (*, *) "Benchmark"
      write (*, *) "========="
  
  #ifdef __GFORTRAN__
      write (*, *) "Compiler infos"
      write (*, *) "--------------"
  
      write (*, *) 'Compiler version: ', compiler_version()
      write (*, *) 'Compiler options: ', compiler_options()
  #endif
  
      !$omp parallel
      !$omp master
      write (*, '(x, a, i2)') "OpenMP threads: ", omp_get_num_threads()
      !$omp end master
      !$omp end parallel
      write (*, *)
  
      write (*,*) "Fibonacci numbers"
      write (*,*) "-----------------"
      call system_clock(tic)
      res_int = fib_naive(35)
      call system_clock(toc)
  