Update Fortran examples.

libocca · Dec 11, 2023 · 665526f · 665526f
1 parent 7f4906b
commit 665526f
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git 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
@@ -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
@@ -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