代码搜索：complex
找到约 10,000 项符合「complex」的源代码
代码结果 10,000
www.eeworm.com/read/162614/5526240
f imag_1.f
! { dg-do compile }
program bug
implicit none
complex(kind=8) z
double precision x,y
z = cmplx(1.e0_8,2.e0_8)
y = imag(z)
y = imagpart(z)
x = realpart(z
www.eeworm.com/read/162614/5526465
f90 f2c_1.f90
! Make sure the f2c calling conventions work
! { dg-do run }
! { dg-options "-ff2c" }
function f(x)
f = x
end function f
complex function c(a,b)
c = cmplx (a,b)
end function c
double complex fu
www.eeworm.com/read/162614/5526502
f90 module_blank_common.f90
! { dg-do run }
!
! This tests that blank common works in modules. PR23270
! Contributed by Paul Thomas
!
module global
common a, b
real a, b
end module global
program blan
www.eeworm.com/read/162614/5526605
c 20020411-1.c
/* PR optimization/6177
This testcase ICEd because expr.c did not expect to see a CONCAT
as array rtl. */
extern void abort (void);
extern void exit (int);
__complex__ float foo (void)
{
__
www.eeworm.com/read/162614/5528076
c 981007-1.c
extern double fabs (double);
extern double sqrt (double);
typedef struct complexm {
double re,im;
} complex;
static complex
setCom (double r, double i)
{
complex ct;
ct.re=fabs(r)
www.eeworm.com/read/162614/5529648
c c99-typespec-1.c
/* Test for valid and invalid combinations of type specifiers in C99.
Similar to typespec-1.c but with -pedantic-errors.
Includes _Complex, but not _Imaginary (expected to be removed in TC2). *
www.eeworm.com/read/162614/5529763
c scalar-by-value-3_y.c
#include
#include "compat-common.h"
#ifdef SKIP_VA
const int test_va = 0;
#else
const int test_va = 1;
#endif
#define T(NAME, TYPE, INITVAL) \
extern TYPE g01##NAME, g02##NAME, g03##
www.eeworm.com/read/162614/5529771
c scalar-return-3_x.c
#include "compat-common.h"
#ifdef SKIP_VA
const int test_va = 0;
#else
const int test_va = 1;
#endif
#define T(NAME, TYPE, INITVAL) \
TYPE g01##NAME, g02##NAME, g03##NAME, g04##NAME; \
TYPE g0
www.eeworm.com/read/162614/5529775
c scalar-return-4_y.c
#include
#include "compat-common.h"
#ifdef SKIP_VA
const int test_va = 0;
#else
const int test_va = 1;
#endif
#define T(NAME, TYPE, INITVAL) \
extern TYPE g01##NAME; \
\
www.eeworm.com/read/162614/5529921
c builtins-19.c
/* Copyright (C) 2003 Free Software Foundation.
Check that cabs of a non-complex argument is converted into fabs.
Written by Roger Sayle, 1st June 2003. */
/* { dg-do link } */
/* { dg-opti