bolt/deps/llvm-18.1.8/flang/test/Lower/Intrinsics/dble.f90
2025-02-14 19:21:04 +01:00

8 lines
185 B
Fortran

! RUN: bbc -emit-fir %s -o - | FileCheck %s
! CHECK-LABEL: dble_test
subroutine dble_test(a)
real :: a
! CHECK: fir.convert {{.*}} : (f32) -> f64
print *, dble(a)
end subroutine