anchor.diff:    INTEGER              :: rc
     CHARACTER(LEN=20)    :: string
   
  -  rc = c_strftime(string,LEN(string),'%G %V %u'//C_NULL_CHAR,&
  +  rc = c_strftime(string,LEN(string),'%G %V %u'//c_null_char,&
                     self % tm())  
   
     READ(UNIT=string(1:4),FMT='(I4)')year
  
positive.code: !
  !======================================================================>
  
  USE,INTRINSIC :: iso_c_binding
  
  IMPLICIT NONE
  
  
negative.code:   TYPE(tm_struct)          :: tm
  
    resultString = ""
    rc = c_strftime(resultString,MAXSTRLEN,TRIM(format)//c_null_char,&
                    self % tm())
    strftime = TRIM(resultString)
    n = LEN(strftime)
  