11 lines · plain
1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3! CHECK-LABEL: conjg_test4subroutine conjg_test(z1, z2)5 complex :: z1, z26 ! CHECK: fir.extract_value7 ! CHECK: negf8 ! CHECK: fir.insert_value9 z2 = conjg(z1)10end subroutine11 1! RUN: bbc -emit-fir %s -o - | FileCheck %s2 3! CHECK-LABEL: conjg_test4subroutine conjg_test(z1, z2)5 complex :: z1, z26 ! CHECK: fir.extract_value7 ! CHECK: negf8 ! CHECK: fir.insert_value9 z2 = conjg(z1)10end subroutine11