Explorar o código

fix calling fortran function

Samuel Thibault %!s(int64=9) %!d(string=hai) anos
pai
achega
cef987ffeb
Modificáronse 1 ficheiros con 2 adicións e 2 borrados
  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)