CHARACTER; scalar; INTENT(OUT).
Returns the current date (using the same format as
CALL CTIME(Date, TIME8())
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.
See CTime Intrinsic (subroutine).
Some non-GNU implementations of Fortran provide this intrinsic as only a function, not as a subroutine.
For information on other intrinsics with the same name: See FDate Intrinsic (function).