Removed incompatible interface.

Author: interkosmos

src/unix_stat.F90

@@ -82,6 +82,7 @@ module unix_stat
     end type c_stat_type
 
 #endif
+
 #elif defined (__FreeBSD__)
 
     integer(kind=c_int), parameter, public :: S_IRWXU = int(o'0000700')
@@ -132,6 +133,7 @@ module unix_stat
         integer(kind=c_uint64_t)          :: st_gen       = 0
         integer(kind=c_uint64_t), private :: st_spare(10) = 0
     end type c_stat_type
+
 #endif
 
     public :: c_fstat

src/unix_stdio.F90

@@ -10,7 +10,6 @@ module unix_stdio
     integer(kind=c_int), parameter, public :: EOF = -1
 
     public :: c_getchar
-    public :: c_getline
     public :: c_fclose
     public :: c_fdopen
     public :: c_fflush
@@ -37,16 +36,6 @@ function c_getchar() bind(c, name='getchar')
             integer(kind=c_int) :: c_getchar
         end function c_getchar
 
-        ! ssize_t getline(char **lineptr, size_t *n, FILE *stream)
-        function c_getline(lineptr, n, stream) bind(c, name='getline')
-            import :: c_char, c_ptr, c_size_t
-            implicit none
-            character(kind=c_char), intent(in)        :: lineptr(*)
-            integer(kind=c_size_t), intent(in)        :: n
-            type(c_ptr),            intent(in), value :: stream
-            integer(kind=c_size_t)                    :: c_getline
-        end function c_getline
-
         ! int fclose(FILE *stream)
         function c_fclose(stream) bind(c, name='fclose')
             import :: c_int, c_ptr