INTEGER(KIND=1); DIMENSION(3); INTENT(OUT).
Fills TArray with the numerical values at the current local time of day, month (in the range 1-12), and year in elements 1, 2, and 3, respectively. The year has four significant digits.
Programs making use of this intrinsic might not be Year 10000 (Y10K) compliant. For example, the date might appear, to such programs, to wrap around (change from a larger value to a smaller one) as of the Year 10000.
For information on other intrinsics with the same name: See IDate Intrinsic (VXT).