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