8 lines
185 B
Fortran
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
|