1! RUN: bbc -emit-fir %s -o - | FileCheck %s
2
3! CHECK-LABEL: dble_test
4subroutine dble_test(a)
5  real :: a
6  ! CHECK: fir.convert {{.*}} : (f32) -> f64
7  print *, dble(a)
8end subroutine
9