15 lines · plain
1! RUN: bbc -emit-fir -hlfir=false %s -o - | FileCheck %s2 3! CHECK-LABEL: dprod_test4subroutine dprod_test (x, y, z)5 real :: x,y6 double precision :: z7 z = dprod(x,y)8 ! CHECK-DAG: %[[x:.*]] = fir.load %arg09 ! CHECK-DAG: %[[y:.*]] = fir.load %arg110 ! CHECK-DAG: %[[a:.*]] = fir.convert %[[x]] : (f32) -> f6411 ! CHECK-DAG: %[[b:.*]] = fir.convert %[[y]] : (f32) -> f6412 ! CHECK: %[[res:.*]] = arith.mulf %[[a]], %[[b]]13 ! CHECK: fir.store %[[res]] to %arg214end subroutine15