12 lines · plain
1! REQUIRES: flang-supports-f128-math2! RUN: bbc -emit-fir %s -o - | FileCheck %s3! RUN: bbc --math-runtime=precise -emit-fir %s -o - | FileCheck %s --check-prefixes="PRECISE"4! RUN: %flang_fc1 -emit-fir %s -o - | FileCheck %s5 6! PRECISE: fir.call @_FortranAcqpowk({{.*}}){{.*}}: (complex<f128>, i64) -> complex<f128>7! CHECK: complex.powi %{{.*}}, %{{.*}} fastmath<contract> : complex<f128>8 complex(16) :: a9 integer(8) :: b10 b = a ** b11end12