[flang-commits] [flang] 35b0dda - [flang] Define the API for CPU_TIME

[Diana Picus via flang-commits]

Author: Diana Picus
Date: 2021-06-09T08:20:58Z
New Revision: 35b0ddab0ee8064d23c6f390e30da14e756b5ba6

URL: https://github.com/llvm/llvm-project/commit/35b0ddab0ee8064d23c6f390e30da14e756b5ba6
DIFF: https://github.com/llvm/llvm-project/commit/35b0ddab0ee8064d23c6f390e30da14e756b5ba6.diff

LOG: [flang] Define the API for CPU_TIME

CPU_TIME takes a single real scalar INTENT(OUT) argument. We can
therefore return a double and let lowering handle casting that to the
precision used for the default real kind.

Differential Revision: https://reviews.llvm.org/D103805

Added: 
    flang/runtime/time-intrinsic.h

Modified: 
    

Removed: 
    


################################################################################
diff  --git a/flang/runtime/time-intrinsic.h b/flang/runtime/time-intrinsic.h
new file mode 100644
index 0000000000000..835f24c0b324e
--- /dev/null
+++ b/flang/runtime/time-intrinsic.h
@@ -0,0 +1,27 @@
+//===-- runtime/time-intrinsic.h --------------------------------*- C++ -*-===//
+//
+// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
+// See https://llvm.org/LICENSE.txt for license information.
+// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
+//
+//===----------------------------------------------------------------------===//
+
+// Defines the API between compiled code and the implementations of time-related
+// intrinsic subroutines in the runtime library.
+
+#ifndef FORTRAN_RUNTIME_TIME_INTRINSIC_H_
+#define FORTRAN_RUNTIME_TIME_INTRINSIC_H_
+
+#include "cpp-type.h"
+#include "entry-names.h"
+
+namespace Fortran::runtime {
+extern "C" {
+
+// Lowering may need to cast this result to match the precision of the default
+// real kind.
+double RTNAME(CpuTime)();
+
+} // extern "C"
+} // namespace Fortran::runtime
+#endif // FORTRAN_RUNTIME_TIME_INTRINSIC_H_