anchor.diff:      IMPORT :: c_char,c_int
       IMPORT :: tm_struct
   
  +    IMPLICIT NONE
  +
       ! ARGUMENTS:
       CHARACTER(KIND=c_char),DIMENSION(*),INTENT(OUT) :: str
       INTEGER(KIND=c_int),VALUE,          INTENT(IN)  :: slen
  
positive.code: !
  !======================================================================>
  
  USE,INTRINSIC :: iso_c_binding
  
  IMPLICIT NONE
  
  
negative.code:   INTEGER         :: rc
    TYPE(tm_struct) :: tm
  
    rc = c_strptime(TRIM(str)//c_null_char,TRIM(format)//c_null_char,tm)
    strptime = tm2date(tm)
  
  ENDFUNCTION strptime
  