From 5cfaea6ea6661f2d76a453e2c2bb08aebd60fda1 Mon Sep 17 00:00:00 2001
From: yymmt <yymmt@kuchem.kyoto-u.ac.jp>
Date: Tue, 4 Jun 2024 16:46:16 +0900
Subject: [PATCH] [bugfix] fix typos in fsys_sleep.fypp

---
 src/fsys_sleep.fypp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/fsys_sleep.fypp b/src/fsys_sleep.fypp
index c4b3f52..7621da7 100644
--- a/src/fsys_sleep.fypp
+++ b/src/fsys_sleep.fypp
@@ -8,7 +8,7 @@ submodule(fsys) fsys_sleep
     subroutine Sleep(dwMillseconds) bind(c)
       import C_LONG
       integer(C_LONG), value, intent(in) :: dwMillseconds
-    end function Sleep
+    end subroutine Sleep
 #:else
     function usleep(usec) bind(c)
       import C_INT