File: libcalls-complex.c

package info (click to toggle)
flang 20181226-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 181,072 kB
  • sloc: cpp: 1,182,685; ansic: 598,652; objc: 103,775; f90: 57,054; python: 15,041; fortran: 13,601; lisp: 10,416; perl: 2,460; asm: 2,148; sh: 1,544; awk: 995; cs: 565; xml: 403; lex: 295; makefile: 225; pascal: 130
file content (49 lines) | stat: -rw-r--r-- 1,553 bytes parent folder | download | duplicates (45)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
// RUN: %clang_cc1 -fno-builtin -emit-llvm -o - %s -triple i386-unknown-unknown | FileCheck -check-prefix CHECK-YES %s
// RUN: %clang_cc1 -fno-builtin-crealf -fno-builtin-creal -fno-builtin-creall \
// RUN:  -fno-builtin-cimagf  -fno-builtin-cimag -fno-builtin-cimagl -emit-llvm \
// RUN:  -o - %s -triple i386-unknown-unknown | FileCheck -check-prefix CHECK-YES %s
// RUN: %clang_cc1 -emit-llvm -o - %s -triple i386-unknown-unknown | FileCheck -check-prefix CHECK-NO %s

extern float crealf(float _Complex);
extern double creal(double _Complex);
extern long double creall(long double _Complex);

extern float cimagf(float _Complex);
extern double cimag(double _Complex);
extern long double cimagl(long double _Complex);

double test_creal(double _Complex z) {
  return creal(z);
  // CHECK-NO-NOT: call double @creal
  // CHECK-YES: call double @creal
}

long double test_creall(double _Complex z) {
  return creall(z);
  // CHECK-NO-NOT: call x86_fp80 @creall
  // CHECK-YES: call x86_fp80 @creall
}

float test_crealf(double _Complex z) {
  return crealf(z);
  // CHECK-NO-NOT: call float @crealf
  // CHECK-YES: call float @crealf
}

double test_cimag(double _Complex z) {
  return cimag(z);
  // CHECK-NO-NOT: call double @cimag
  // CHECK-YES: call double @cimag
}

long double test_cimagl(double _Complex z) {
  return cimagl(z);
  // CHECK-NO-NOT: call x86_fp80 @cimagl
  // CHECK-YES: call x86_fp80 @cimagl
}

float test_cimagf(double _Complex z) {
  return cimagf(z);
  // CHECK-NO-NOT: call float @cimagf
  // CHECK-YES: call float @cimagf
}