1! There is no quad math runtime available in lowering
2! for now. Test that the TODO are emitted correctly.
3! RUN: bbc -emit-fir %s -o /dev/null 2>&1 | FileCheck %s
4
5 complex(16) :: a
6 real(16) :: b
7! CHECK: not yet implemented: no math runtime available for 'hypot(f128, f128)'
8 b = abs(a)
9end
10
11