Przeglądaj źródła

fix calling fortran function

Samuel Thibault 9 lat temu
rodzic
commit
cef987ffeb
1 zmienionych plików z 2 dodań i 2 usunięć
  1. 2 2
      examples/native_fortran/nf_example.f90

+ 2 - 2
examples/native_fortran/nf_example.f90

@@ -165,8 +165,8 @@ PROGRAM f90_example
   WRITE(6,'(a)') " "
 
   !Deallocation
-  fstarpu_codelet_free(cl_loop_element)
-  fstarpu_codelet_free(cl_copy_element)
+  CALL fstarpu_codelet_free(cl_loop_element)
+  CALL fstarpu_codelet_free(cl_copy_element)
   DO i = 1,Nelt
      elt => mesh%elt(i)
      DEALLOCATE(elt%ro)