1! RUN: bbc -emit-fir %s -o - | FileCheck %s
2
3! CHECK-LABEL: cpu_time_test
4subroutine 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