diff --git a/benchmarks/FLASH-IO/flash_benchmark_io.F90 b/benchmarks/FLASH-IO/flash_benchmark_io.F90
index 9000a3a39..f35190cb8 100644
--- a/benchmarks/FLASH-IO/flash_benchmark_io.F90
+++ b/benchmarks/FLASH-IO/flash_benchmark_io.F90
@@ -127,7 +127,7 @@ program flash_benchmark_io
 ! netCDF plotfile -- corners
 !---------------------------------------------------------------------------
       time_begin = MPI_Wtime()
-      corner_io = plotfile_ncmpi_par(0,0.e0,.true.)
+      corner_io = plotfile_ncmpi_par(0, DBLE(0.0), .true.)
       time_io(3) = MPI_Wtime() - time_begin
 
       call report_io_performance(verbose, local_blocks, time_io, chk_io, &