brintos / llvm-project-archived public Read only

Text · 185 B · 3a89644 Raw

9 lines · plain

1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3! CHECK-LABEL: dble_test4subroutine dble_test(a)5  real :: a6  ! CHECK: fir.convert {{.*}} : (f32) -> f647  print *, dble(a)8end subroutine9