I submitted an "Issue" on this a few months ago with one of the compiler vendors. Their first response was that the words in Adams,
Brainerd, et al did not conclusively specify the behavior of DATE_AND_TIME. Then, when I pointed out that their usage prevented
source code compatibility with another compiler with which they advertise such compatibility, they agreed to change. I fear that my
effort fell short; the Zone appears correct now, according to your example, but not values(4). If this is the same vendor, a follow
up, referencing my original "resolved" report number, might be in order. Later in the day, if the server which is blocking my
access to my records on these events returns to life, I will check this one out. Let me know if this appears to be the same vendor,
and I will look up the numbers.
Zone: -0700
DaTime 2001 01 17 480 05 51 28 557
Count 49888 0
----- Original Message -----
From: "Jan van Oosterwijk" <[log in to unmask]>
To: <[log in to unmask]>
Sent: Wednesday, January 17, 2001 2:23 AM
Subject: Interpretation of DATE_AND_TIME(ZONE=)
> Hello Fortran experts,
>
> I would like an elucidation of the following:
>
> Two compilers give different results with this program:
>
> ! [JvO] 2001-01-17 TZ.f90
> program test_TZ
> character(10) :: TZ
> integer :: C, V(8)
>
> call date_and_time(zone = TZ)
> print *, "Zone: ", TZ
> call date_and_time(values = V)
> print "(A, 8I5.2)", "DaTime", V
> call system_clock(count = C)
> print "(A, I11, I6)", "Count", C, C/86400
>
> end program test_TZ
>
> D:\FORTRAN\ERROR>tz
> Zone: +0100
> DaTime 2001 01 17 60 11 06 17 619
> Count 831998665 9629
>
> D:\FORTRAN\ERROR>tz
> Zone: +0100
> DaTime 2001 01 17 -60 11 06 30 00
> Count 0 0
>
> My idea was and is that the first is correct. Seems to be consistent too.
>
> My timezone is UTC +1 hour (Central European Time)
>
> BTW: The clock counter for the second version seems not to work.
>
>
>
>
> --
>
> Meilleures Salutations,
> Kindest Regards,
> /---
> Jan van Oosterwijk
> Computing Centre
> Delft University of Technology
> Postbus 354
> 2600 AJ Delft
> Netherlands / Pays-Bas
> mailto:[log in to unmask]
> http://huizen.DTO.TUDelft.NL/vanOosterwijk
> Phone: +31 15 27 85017
> Fax: +31 15 27 83787
|