The green book says:

> [...] note that
> character(kankji) :: kanji_letter
> is not an abbreviation fo
> character(kind=kanji) :: kanji_letter

src/libmtime.f90

@@ -1190,7 +1190,7 @@ contains
     character(len=*), intent(in) :: sign
     integer(c_int), intent(in) :: year, month, day, hour, minute, second, ms
     type(c_ptr) :: c_pointer
-    character(c_char) ::c_sign
+    character(kind=c_char) ::c_sign
     integer, optional:: errno
     if (present(errno)) errno = 0
     c_sign = sign(1:1)
@@ -1206,7 +1206,7 @@ contains
     integer(c_int64_t), intent(in) :: year
     integer(c_int), intent(in) :: month, day, hour, minute, second, ms
     type(c_ptr) :: c_pointer
-    character(c_char) ::c_sign
+    character(kind=c_char) ::c_sign
     integer, optional:: errno
     if (present(errno)) errno = 0
     c_sign = sign(1:1)

src/mtime_c_bindings.f90

@@ -47,7 +47,7 @@ module mtime_c_bindings
   end type julianday
   !
   type, bind(c) :: juliandelta
-    character(c_char)  :: sign
+    character(kind=c_char)  :: sign
     integer(c_int64_t) :: day
     integer(c_int64_t) :: ms
   end type juliandelta
@@ -72,7 +72,7 @@ module mtime_c_bindings
   !
   type, bind(c) :: timedelta
     integer(c_int) :: flag_std_form
-    character(c_char) :: sign
+    character(kind=c_char) :: sign
     integer(c_int64_t) :: year
     integer(c_int) :: month
     integer(c_int) :: day
@@ -107,7 +107,7 @@ module mtime_c_bindings
     function my_calendartostring(calendar) result(c_pointer) bind(c, name='calendarToString') !TESTED-OK
       import :: c_char, c_ptr
       type(c_ptr) :: c_pointer
-      character(c_char), dimension(*) :: calendar
+      character(kind=c_char), dimension(*) :: calendar
     end function my_calendartostring
     !
   end interface
@@ -144,7 +144,7 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_julianday
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_juliandaytostring
     !
   end interface
@@ -154,7 +154,7 @@ module mtime_c_bindings
     function my_newdatefromstring(string) result(c_pointer) bind(c, name='newDate')
       import :: c_char, c_ptr
       type(c_ptr) :: c_pointer
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_newdatefromstring
     !
     function my_newrawdate(year, month, day) result(c_pointer) bind(c, name='newRawDate')
@@ -185,15 +185,15 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_date
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_datetostring
     !
     function my_datetoposixstring(my_date, string, fmtstr) result(string_ptr) bind(c, name='dateToPosixString')
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_date
-      character(c_char), dimension(*) :: string
-      character(c_char), dimension(*) :: fmtstr
+      character(kind=c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: fmtstr
     end function my_datetoposixstring
     !
   end interface
@@ -203,7 +203,7 @@ module mtime_c_bindings
     function my_newtimefromstring(string) result(c_pointer) bind(c, name='newTime')
       import :: c_char, c_ptr
       type(c_ptr) :: c_pointer
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_newtimefromstring
     !
     function my_newrawtime(hour, minute, second, ms) result(c_pointer) bind(c, name='newRawTime')
@@ -233,15 +233,15 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_time
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_timetostring
     !
     function my_timetoposixstring(my_time, string, fmtstr) result(string_ptr) bind(c, name='timeToPosixString')
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_time
-      character(c_char), dimension(*) :: string
-      character(c_char), dimension(*) :: fmtstr
+      character(kind=c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: fmtstr
     end function my_timetoposixstring
     !
   end interface
@@ -251,7 +251,7 @@ module mtime_c_bindings
     function my_newdatetime(string) result(c_pointer) bind(c, name='newDateTime')
       import :: c_ptr, c_char
       type(c_ptr) :: c_pointer
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_newdatetime
     !
     function my_newrawdatetime(year, month, day, hour, minute, second, ms) result(c_pointer) &
@@ -291,15 +291,15 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_time
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_datetimetostring
     !
     function my_datetimetoposixstring(my_time, string, fmtstr) result(string_ptr) bind(c, name='datetimeToPosixString')
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_time
-      character(c_char), dimension(*) :: string
-      character(c_char), dimension(*) :: fmtstr
+      character(kind=c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: fmtstr
     end function my_datetimetoposixstring
     !
     function my_getnoofdaysinmonthdatetime(dt) bind(c, name='getNoOfDaysInMonthDateTime')
@@ -351,14 +351,14 @@ module mtime_c_bindings
     function my_newtimedeltafromstring(string) result(c_pointer) bind(c, name='newTimeDelta')
       import :: c_char, c_ptr
       type(c_ptr)                     :: c_pointer
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_newtimedeltafromstring
     !
     function my_newrawtimedelta(sign, year, month, day, hour, minute, second, ms) result(c_pointer) &
          &             bind(c, name='newRawTimeDelta')
       import :: c_int64_t, c_char, c_int, c_ptr
       type(c_ptr) :: c_pointer
-      character(c_char), value :: sign
+      character(kind=c_char), value :: sign
       integer(c_int64_t), value :: year
       integer(c_int), value :: month, day, hour, minute, second, ms
     end function my_newrawtimedelta
@@ -412,7 +412,7 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: td
-      character(c_char), dimension(*) :: tostring
+      character(kind=c_char), dimension(*) :: tostring
     end function my_timedeltatostring
     !
     function my_addtimedeltatodatetime(my_datetime, my_timedelta, ret_datetime) result(datetime_ptr) &
@@ -464,42 +464,42 @@ module mtime_c_bindings
       import :: c_ptr, c_int64_t, c_char
       type(c_ptr) :: string_ptr
       integer(c_int64_t), value :: ms
-      character(c_char), dimension(*) :: tostring
+      character(kind=c_char), dimension(*) :: tostring
     end function my_getptstringfromms
     !
     function my_getptstringfromsecondsint(s, tostring) result(string_ptr) bind(c, name='getPTStringFromSeconds')
       import :: c_ptr, c_int64_t, c_char
       type(c_ptr) :: string_ptr
       integer(c_int64_t), value :: s
-      character(c_char), dimension(*) :: tostring
+      character(kind=c_char), dimension(*) :: tostring
     end function my_getptstringfromsecondsint
     !
     function my_getptstringfromsecondsfloat(s, tostring) result(string_ptr) bind(c, name='getPTStringFromSecondsFloat')
       import :: c_ptr, c_float, c_char
       type(c_ptr) :: string_ptr
       real(c_float), value :: s
-      character(c_char), dimension(*) :: tostring
+      character(kind=c_char), dimension(*) :: tostring
     end function my_getptstringfromsecondsfloat
     !
     function my_getptstringfromsecondsdouble(s, tostring) result(string_ptr) bind(c, name='getPTStringFromSecondsDouble')
       import :: c_ptr, c_double, c_char
       type(c_ptr) :: string_ptr
       real(c_double), value :: s
-      character(c_char), dimension(*) :: tostring
+      character(kind=c_char), dimension(*) :: tostring
     end function my_getptstringfromsecondsdouble
     !
     function my_getptstringfromminutes(m, tostring) result(string_ptr) bind(c, name='getPTStringFromMinutes')
       import :: c_ptr, c_int64_t, c_char
       type(c_ptr) :: string_ptr
       integer(c_int64_t),value :: m
-      character(c_char), dimension(*) :: tostring
+      character(kind=c_char), dimension(*) :: tostring
     end function my_getptstringfromminutes
     !
     function my_getptstringfromhours(h, tostring) result(string_ptr) bind(c, name='getPTStringFromHours')
       import :: c_ptr, c_int64_t, c_char
       type(c_ptr) :: string_ptr
       integer(c_int64_t),value :: h
-      character(c_char), dimension(*) :: tostring
+      character(kind=c_char), dimension(*) :: tostring
     end function my_getptstringfromhours
     !
     function my_timedeltatojuliandelta(td,dt,jd) result(c_pointer) bind(c,name='timeDeltaToJulianDelta')
@@ -550,19 +550,19 @@ module mtime_c_bindings
          &              bind(c, name='newEvent')
       import :: c_char, c_ptr
       type(c_ptr) :: c_pointer
-      character(c_char), dimension(*) :: name
-      character(c_char), dimension(*) :: referenceDate
-      character(c_char), dimension(*) :: firstDate
-      character(c_char), dimension(*) :: lastDate
-      character(c_char), dimension(*) :: interval
-      character(c_char), dimension(*) :: offset
+      character(kind=c_char), dimension(*) :: name
+      character(kind=c_char), dimension(*) :: referenceDate
+      character(kind=c_char), dimension(*) :: firstDate
+      character(kind=c_char), dimension(*) :: lastDate
+      character(kind=c_char), dimension(*) :: interval
+      character(kind=c_char), dimension(*) :: offset
     end function my_newevent
     !
     function my_neweventwithdatatypes(name, referenceDate, firstdate, lastDate, interval, offset) &
          &                           result(c_pointer) bind(c, name='newEventWithDataType')
       import :: c_char, c_ptr
       type(c_ptr) :: c_pointer
-      character(c_char), dimension(*) :: name
+      character(kind=c_char), dimension(*) :: name
       type(c_ptr), value :: referenceDate
       type(c_ptr), value :: firstDate
       type(c_ptr), value :: lastDate
@@ -585,7 +585,7 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_event
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_eventtostring
     !
     function my_isCurrentEventActive(my_event, my_datetime, plus_slack, minus_slack) &
@@ -637,7 +637,7 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: c_pointer
       type(c_ptr), value :: my_event
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_geteventname
     !
     function my_getnexteventisfirst(my_event) result(ret) bind(c, name='getNextEventIsFirst')
@@ -689,7 +689,7 @@ module mtime_c_bindings
     function my_neweventgroup(name) result(c_pointer) bind(c, name='newEventGroup')
       import :: c_char, c_ptr
       type(c_ptr) :: c_pointer
-      character(c_char), dimension(*) :: name
+      character(kind=c_char), dimension(*) :: name
     end function my_neweventgroup
     !
     subroutine my_deallocateeventgroup(evgrp) bind(c,name='deallocateEventGroup')
@@ -707,7 +707,7 @@ module mtime_c_bindings
     function my_removeeventfromeventgroup(evname, evgrp) result(ret) bind(c, name='removeEventFromEventGroup')
       import :: c_bool, c_char, c_ptr
       logical(c_bool) :: ret
-      character(c_char), dimension(*) :: evname
+      character(kind=c_char), dimension(*) :: evname
       type(c_ptr), value :: evgrp
     end function my_removeeventfromeventgroup
     !
@@ -715,7 +715,7 @@ module mtime_c_bindings
       import :: c_ptr, c_char
       type(c_ptr) :: string_ptr
       type(c_ptr), value :: my_eventgroup
-      character(c_char), dimension(*) :: string
+      character(kind=c_char), dimension(*) :: string
     end function my_geteventgroupname
     !
   end interface
@@ -725,17 +725,17 @@ module mtime_c_bindings
     function my_getRepetitions(repetitionString) bind(c, name='getRepetitions')
       import :: c_int, c_char
       integer(c_int) :: my_getRepetitions
-      character(c_char), dimension(*) :: repetitionString
+      character(kind=c_char), dimension(*) :: repetitionString
     end function my_getRepetitions
     !
     subroutine my_splitRepetitionString(recurringTimeInterval, repetitor, start, end, duration) &
          bind(c, name='splitRepetitionString')
       import :: c_char
-      character(c_char), dimension(*) :: recurringTimeInterval
-      character(c_char), dimension(*) :: repetitor
-      character(c_char), dimension(*) :: start
-      character(c_char), dimension(*) :: end
-      character(c_char), dimension(*) :: duration
+      character(kind=c_char), dimension(*) :: recurringTimeInterval
+      character(kind=c_char), dimension(*) :: repetitor
+      character(kind=c_char), dimension(*) :: start
+      character(kind=c_char), dimension(*) :: end
+      character(kind=c_char), dimension(*) :: duration
     end subroutine my_splitRepetitionString
     !
   end interface

src/mtime_t_juliandelta.inc

@@ -6,7 +6,7 @@
   !
   FUNCTION t_juliandelta_assign_raw(sign,day, ms)
     TYPE(t_juliandelta) :: t_juliandelta_assign_raw
-    CHARACTER(c_char),  INTENT(in) :: sign
+    CHARACTER(kind=c_char),  INTENT(in) :: sign
     INTEGER(c_int64_t), INTENT(in) :: day
     INTEGER(c_int64_t), INTENT(in) :: ms
     type(c_ptr) :: c_pointer

src/mtime_t_timedelta.inc

@@ -355,7 +355,7 @@
   FUNCTION t_timedelta_get_c_pointer(this) RESULT(c_pointer)
     TYPE(c_ptr) :: c_pointer
     CLASS(t_timedelta) :: this
-    character(c_char) ::c_sign
+    character(kind=c_char) ::c_sign
 
     c_sign = this%td%sign(1:1)
     c_pointer = my_newrawtimedelta(c_sign, int(this%td%year,c_int64_t), this%td%month, this%td%day, &