normbugtest()

subroutine normbugtest

(

)

Definition at line 485 of file testlibtime.f.

References time_clear(), time_norm(), and time_util_warning_report_time().

Referenced by testlibtime().

c
c test bug of norm-subroutine found in 11/2017
c if seconds are integer multiples of -60 or hours are integer multiples
c of -24 or similar, the norm function does not provide the desired
c output
c
      integer date1(7), date2(7), date3(7)
      character string*40
c

      print *,'isolate'
      call time_clear(date1)
      date1(1)=2018
      date1(2)=13   
      date1(3)=-23
      date1(4)=0
      call time_util_warning_report_time('norm bug test',date1)
      call time_norm(date1)
      call time_util_warning_report_time('norm bug test',date1)
      call time_norm(date1)
      call time_util_warning_report_time('norm bug test',date1)
      return

Here is the call graph for this function:

Here is the caller graph for this function: