diff --git a/flang/runtime/time-intrinsic.h b/flang/runtime/time-intrinsic.h --- a/flang/runtime/time-intrinsic.h +++ b/flang/runtime/time-intrinsic.h @@ -22,6 +22,12 @@ // real kind. double RTNAME(CpuTime)(); +// Interface for the SYSTEM_CLOCK intrinsic. We break it up into 3 distinct +// function calls, one for each of SYSTEM_CLOCK's optional output arguments. +// Lowering will have to cast the results to whatever type it prefers. +CppTypeFor RTNAME(SystemClockCount)(); +CppTypeFor RTNAME(SystemClockCountRate)(); +CppTypeFor RTNAME(SystemClockCountMax)(); } // extern "C" } // namespace Fortran::runtime #endif // FORTRAN_RUNTIME_TIME_INTRINSIC_H_