From c8a7ba0d16c8984d8ed517a75f1f942d8be3a585 Mon Sep 17 00:00:00 2001 From: Philipp Date: Sat, 9 Mar 2024 18:18:48 +0100 Subject: [PATCH] Minor fix. --- src/unix_macro.c | 2 +- src/unix_utsname.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/unix_macro.c b/src/unix_macro.c index ccaae54..97ae843 100644 --- a/src/unix_macro.c +++ b/src/unix_macro.c @@ -18,7 +18,7 @@ int c_fprintf(FILE *, const char *, const char *); int c_ioctl(int, unsigned long, void *); int c_open(const char *, int, mode_t); int c_scanf(const char *, const char *); -int uname(struct utsname *); +int c_uname(struct utsname *); void c_syslog(int, const char *, const char *); /******************************************************************************* diff --git a/src/unix_utsname.F90 b/src/unix_utsname.F90 index aa26a1e..688a640 100644 --- a/src/unix_utsname.F90 +++ b/src/unix_utsname.F90 @@ -37,7 +37,7 @@ module unix_utsname ! int uname(struct utsname *name) function c_uname(name) bind(c, name='c_uname') !! Calls wrapper `c_uname()` in `unix_macro.c`, as it is an inline - !! function on FreeBSD, alternatively to callling `__xuname()`. + !! function on FreeBSD, alternatively to calling `__xuname()`. import :: c_int, c_utsname implicit none type(c_utsname), intent(inout) :: name