diff --git a/src/Utils/mmap.f90 b/src/Utils/mmap.f90
index ce33e301..75b996de 100644
--- a/src/Utils/mmap.f90
+++ b/src/Utils/mmap.f90
@@ -62,7 +62,7 @@ module mmap_module
       length = PRODUCT( shape(:) ) * bytes
       fd_ = fd
       call c_munmap( length, fd_, map)
-  end 
+  end subroutine
 
 end module mmap_module