From 69f857b6900232c0314c06ce4c2a48a0a19d205d Mon Sep 17 00:00:00 2001
From: Anthony Scemama <scemama@irsamc.ups-tlse.fr>
Date: Mon, 20 Jun 2016 16:20:59 +0200
Subject: [PATCH] missing end subroutine

---
 src/Utils/mmap.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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