diff --git a/examples/fortran/01_add_vectors/main.f90 b/examples/fortran/01_add_vectors/main.f90
index 189c69e2b..a03872cad 100644
--- a/examples/fortran/01_add_vectors/main.f90
+++ b/examples/fortran/01_add_vectors/main.f90
@@ -87,7 +87,7 @@ program main
                                      props)
 
   ! Copy memory to the device
-  call occaCopyPtrToMem(o_a, C_loc(a), entries*C_float, 0_occaUDim_t, occaDefault)
+  call occaCopyPtrToMem(o_a, C_loc(a), entries, 0_occaUDim_t, occaDefault)
   call occaCopyPtrToMem(o_b, C_loc(b), occaAllBytes   , 0_occaUDim_t, occaDefault)
 
   ! Launch device kernel
diff --git a/examples/fortran/03_static_compilation/main.f90 b/examples/fortran/03_static_compilation/main.f90
index 0168e77ae..ad341f2f7 100644
--- a/examples/fortran/03_static_compilation/main.f90
+++ b/examples/fortran/03_static_compilation/main.f90
@@ -87,7 +87,7 @@ program main
                                      props)
 
   ! Copy memory to the device
-  call occaCopyPtrToMem(o_a, C_loc(a), entries*C_float, 0_occaUDim_t, occaDefault)
+  call occaCopyPtrToMem(o_a, C_loc(a), entries, 0_occaUDim_t, occaDefault)
   call occaCopyPtrToMem(o_b, C_loc(b), occaAllBytes   , 0_occaUDim_t, occaDefault)
 
   ! Launch device kernel
diff --git a/examples/fortran/09_streams/main.f90 b/examples/fortran/09_streams/main.f90
index 8323c3867..a1beb0921 100644
--- a/examples/fortran/09_streams/main.f90
+++ b/examples/fortran/09_streams/main.f90
@@ -61,7 +61,7 @@ program main
                                occaDefault)
 
   ! Copy memory to the device
-  call occaCopyPtrToMem(o_a, C_loc(a), entries*C_float, 0_occaUDim_t, occaDefault)
+  call occaCopyPtrToMem(o_a, C_loc(a), entries, 0_occaUDim_t, occaDefault)
   call occaCopyPtrToMem(o_b, C_loc(b), occaAllBytes   , 0_occaUDim_t, occaDefault)
 
   ! Set stream and launch device kernel