Skip to content

Commit

Permalink
Minor fix.
Browse files Browse the repository at this point in the history
  • Loading branch information
interkosmos committed Mar 9, 2024
1 parent 816e571 commit c8a7ba0
Show file tree
Hide file tree
Showing 2 changed files with 2 additions and 2 deletions.
2 changes: 1 addition & 1 deletion src/unix_macro.c
Original file line number Diff line number Diff line change
Expand Up @@ -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 *);

/*******************************************************************************
Expand Down
2 changes: 1 addition & 1 deletion src/unix_utsname.F90
Original file line number Diff line number Diff line change
Expand Up @@ -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
Expand Down

0 comments on commit c8a7ba0

Please sign in to comment.