1! RUN: bbc -emit-fir %s -o - | FileCheck %s 2 3! CHECK-LABEL: conjg_test 4subroutine conjg_test(z1, z2) 5 complex :: z1, z2 6 ! CHECK: fir.extract_value 7 ! CHECK: negf 8 ! CHECK: fir.insert_value 9 z2 = conjg(z1) 10end subroutine 11