flang/test/Lower/Intrinsics/cpu_time.f90

   1 ! RUN: bbc -emit-fir %s -o - | FileCheck %s
   2
   3 ! CHECK-LABEL: cpu_time_test
   4 subroutine cpu_time_test(t)
   5     real :: t
   6     ! CHECK: %[[result64:[0-9]+]] = fir.call @_FortranACpuTime() {{.*}}: () -> f64
   7     ! CHECK: %[[result32:[0-9]+]] = fir.convert %[[result64]] : (f64) -> f32
   8     ! CHECK: fir.store %[[result32]] to %arg0 : !fir.ref<f32>
   9     call cpu_time(t)
  10   end subroutine
  11