llvm/flang/test/Lower/Intrinsics/dble.f90

! 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