gcc/testsuite/gdc.test/compilable/compile1.d

// COMPILABLE_MATH_TEST
// PERMUTE_ARGS:
// EXTRA_FILES: imports/a12506.d
/* TEST_OUTPUT:
---
compilable/compile1.d(229): Deprecation: use of complex type `cdouble` is deprecated, use `std.complex.Complex!(double)` instead
---
*/

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=1748
// class template with stringof

struct S1748(T) {}
static assert(S1748!int.stringof == "S1748!int");

class C1748(T) {}
static assert(C1748!int.stringof == "C1748!int");

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=2354
// pragma + single semicolon DeclarationBlock

version(all)
    pragma(inline, true);
else
    pragma(inline, false);

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=2438

alias void delegate() Dg2438;

alias typeof(Dg2438.ptr)     CP2438a;
alias typeof(Dg2438.funcptr) FP2438a;
static assert(is(CP2438a == void*));
static assert(is(FP2438a == void function()));

alias typeof(Dg2438.init.ptr)     CP2438b;
alias typeof(Dg2438.init.funcptr) FP2438b;
static assert(is(CP2438b == void*));
static assert(is(FP2438b == void function()));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=4225

struct Foo4225
{
    enum x = Foo4225();

    static Foo4225 opCall()
    {
        return Foo4225.init;
    }
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=5996
// ICE(expression.c)

template T5996(T)
{
    auto bug5996() {
        if (anyOldGarbage) {}
        return 2;
    }
}
static assert(!is(typeof(T5996!(int).bug5996())));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=8532
// segfault(mtype.c) - type inference + pure

auto segfault8532(Y, R ...)(R r, Y val) pure
{ return segfault8532(r, val); }

static assert(!is(typeof( segfault8532(1,2,3))));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=8982
// ICE(ctfeexpr.c) __parameters with error in default value

template ice8982(T)
{
    void bug8982(ref const int v = 7){}

    static if (is(typeof(bug8982) P == __parameters)) {
        enum eval8982 = ((P[0..1] g) => g[0])();
    }
}

static assert(!is(ice8982!(int)));


/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=8801
// ICE assigning to __ctfe

static assert(!is(typeof( { bool __ctfe= true; })));
static assert(!is(typeof( { __ctfe |= true; })));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=5932
// https://issues.dlang.org/show_bug.cgi?id=6675
// ICE(s2ir.c), ICE(glue.c)

void bug3932(T)() {
    static assert( 0 );
    func5932( 7 );
}

void func5932(T)( T val ) {
    void onStandardMsg() {
        foreach( t; T ) { }
    }
}

static assert(!is(typeof(
    {
        bug3932!(int)();
    }()
)));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=6650
// ICE(glue.c) or wrong-code

auto bug6650(X)(X y)
{
    X q;
    q = "abc";
    return y;
}

static assert(!is(typeof(bug6650!(int)(6))));
static assert(!is(typeof(bug6650!(int)(18))));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=14710
// VC-built DMD crashes on templated variadic function IFTI

void bug14710a(T)(T val, T[] arr...)
{
}

void bug14710b()
{
    bug14710a("", "");
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=6661
// Templates instantiated only through is(typeof()) shouldn't cause errors

template bug6661(Q)
{
    int qutz(Q y)
    {
        Q q = "abc";
        return 67;
    }
    static assert(qutz(13).sizeof!=299);
    const Q blaz = 6;
}

static assert(!is(typeof(bug6661!(int).blaz)));

template bug6661x(Q)
{
    int qutz(Q y)
    {
        Q q = "abc";
        return 67;
    }
}
// should pass, but doesn't in current
//static assert(!is(typeof(bug6661x!(int))));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=6599
// ICE(constfold.c) or segfault

string bug6599extraTest(string x) { return x ~ "abc"; }

template Bug6599(X)
{
    class Orbit
    {
        Repository repository = Repository();
    }

    struct Repository
    {
        string fileProtocol = "file://";
        string blah = bug6599extraTest("abc");
        string source = fileProtocol ~ "/usr/local/orbit/repository";
    }
}

static assert(!is(typeof(Bug6599!int)));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=8422
// TypeTuple of tuples can't be read at compile time

template TypeTuple8422(TList...)
{
    alias TList TypeTuple8422;
}

struct S8422 { int x; }

void test8422()
{
    enum a = S8422(1);
    enum b = S8422(2);
    enum c = [1,2,3];
    foreach(t; TypeTuple8422!(b, a)) {
        enum u = t;
    }
    foreach(t; TypeTuple8422!(c)) {
        enum v = t;
    }
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=6096
// ICE(el.c) with -O

cdouble c6096;

int bug6096()
{
    if (c6096) return 0;
    return 1;
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=7681
// Segfault

static assert( !is(typeof( (){
      undefined ~= delegate(){}; return 7;
  }())));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=8639
// Buffer overflow

void t8639(alias a)() {}
void bug8639() {
  t8639!({auto r = -real.max;})();
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=7751
// Segfault

static assert( !is(typeof( (){
    bar[]r; r ~= [];
     return 7;
  }())));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=7639
// Segfault

static assert( !is(typeof( (){
    enum foo =
    [
        str : "functions",
    ];
})));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=11991

void main()
{
    int Throwable;
    int object;
    try
    {
    }
    catch(.object.Throwable)
    {
    }
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=11939

void test11939()
{
    scope(failure)
    {
        import object : Object;
    }
    throw new Exception("");
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=5796

template A(B) {
    pragma(lib, "missing ;")
    enum X = 0;
}

static assert(!is(typeof(A!(int))));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=6720

void bug6720() { }

static assert(!is(typeof(
cast(bool)bug6720()
)));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=1099

template Mix1099(int a) {
   alias typeof(this) ThisType;
    static assert (ThisType.init.tupleof.length == 2);
}


struct Foo1099 {
    mixin Mix1099!(0);
    int foo;
    mixin Mix1099!(1);
    int bar;
    mixin Mix1099!(2);
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=8788
// super() and return

class B8788 {
        this ( ) { }
}

class C8788(int test) : B8788
{
    this ( int y )
    {   // TESTS WHICH SHOULD PASS
        static if (test == 1) {
            if (y == 3) {
                super();
                return;
            }
            super();
            return;
        } else static if (test == 2) {
            if (y == 3) {
                super();
                return;
            }
            super();
        } else static if (test == 3) {
            if (y > 3) {
                if (y == 7) {
                   super();
                   return;
                }
                super();
                return;
            }
            super();
        } else static if (test == 4) {
            if (y > 3) {
                if (y == 7) {
                   super();
                   return;
                }
                else if (y> 5)
                    super();
                else super();
                return;
            }
            super();
        }
        // TESTS WHICH SHOULD FAIL
        else static if (test == 5) {
            if (y == 3) {
                super();
                return;
            }
            return; // no super
        } else static if (test == 6) {
            if (y > 3) {
                if (y == 7) {
                   super();
                   return;
                }
                super();
            }
            super(); // two calls
        } else static if (test == 7) {
            if (y == 3) {
                return; // no super
            }
            super();
        } else static if (test == 8) {
            if (y > 3) {
                if (y == 7) {
                   return; // no super
                }
                super();
                return;
            }
            super();
        } else static if (test == 9) {
            if (y > 3) {
                if (y == 7) {
                   super();
                   return;
                }
                else if (y> 5)
                    super();
                else return; // no super
                return;
            }
            super();
        }
    }
}

static assert( is(typeof( { new C8788!(1)(0); } )));
static assert( is(typeof( { new C8788!(2)(0); } )));
static assert( is(typeof( { new C8788!(3)(0); } )));
static assert( is(typeof( { new C8788!(4)(0); } )));
static assert(!is(typeof( { new C8788!(5)(0); } )));
static assert(!is(typeof( { new C8788!(6)(0); } )));
static assert(!is(typeof( { new C8788!(7)(0); } )));
static assert(!is(typeof( { new C8788!(8)(0); } )));
static assert(!is(typeof( { new C8788!(9)(0); } )));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=4967
// https://issues.dlang.org/show_bug.cgi?id=7058

enum Bug7058 bug7058 = { 1.5f, 2};
static assert(bug7058.z == 99);

struct Bug7058
{
     float x = 0;
     float y = 0;
     float z = 99;
}


/***************************************************/

void test12094()
{
    auto n = null;
    int *a;
    int[int] b;
    int[] c;
    auto u = true ? null : a;
    auto v = true ? null : b;
    auto w = true ? null : c;
    auto x = true ? n : a;
    auto y = true ? n : b;
    auto z = true ? n : c;
    a = n;
    b = n;
    c = n;
}

/***************************************************/

template test8163(T...)
{
    struct Point
    {
        T fields;
    }

    enum N = 2; // N>=2 triggers the bug
    extern Point[N] bar();

    void foo()
    {
        Point[N] _ = bar();
    }
}

alias test8163!(long) _l;
alias test8163!(double) _d;
alias test8163!(float, float) _ff;
alias test8163!(int, int) _ii;
alias test8163!(int, float) _if;
alias test8163!(ushort, ushort, ushort, ushort) _SSSS;
alias test8163!(ubyte, ubyte, ubyte, ubyte, ubyte, ubyte, ubyte, ubyte) _BBBBBBBB;
alias test8163!(ubyte, ubyte, ushort, float) _BBSf;


/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=4757

auto foo4757(T)(T)
{
    static struct Bar(T)
    {
        void spam()
        {
            foo4757(1);
        }
    }
    return Bar!T();
}

void test4757()
{
    foo4757(1);
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=9348

void test9348()
{
    @property Object F(int E)() { return null; }

    assert(F!0 !is null);
    assert(F!0 !in [new Object():1]);
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=9690

@disable
{
    void dep9690() {}
    void test9690()
    {
        dep9690();      // OK
        void inner()
        {
            dep9690();  // OK <- NG
        }
    }
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=9987

static if (is(object.ModuleInfo == struct))
{
    struct ModuleInfo {}

    static assert(!is(object.ModuleInfo == ModuleInfo));
    static assert(object.ModuleInfo.sizeof != ModuleInfo.sizeof);
}
static if (is(object.ModuleInfo == class))
{
    class ModuleInfo {}

    static assert(!is(object.ModuleInfo == ModuleInfo));
    static assert(__traits(classInstanceSize, object.ModuleInfo) !=
                  __traits(classInstanceSize, ModuleInfo));
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=10158

class Outer10158
{
    static struct Inner
    {
        int f;
    }

    void test()
    {
        static assert( Inner.f .offsetof == 0);  // OK <- NG
        static assert((Inner.f).offsetof == 0);  // OK
    }
}

void test10158()
{
    static assert(Outer10158.Inner.f.offsetof == 0);  // OK
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=10326

class C10326
{
    int val;
    invariant   { assert(val == 0); }
    invariant() { assert(val == 0); }
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=11042

static if           ((true  || error) == true ) {} else { static assert(0); }
static if           ((false && error) == false) {} else { static assert(0); }
static assert       ((true  || error) == true );
static assert       ((false && error) == false);
int f11042a1()() if ((true  || error) == true ) { return 0; }   enum x11042a1 = f11042a1();
int f11042b1()() if ((false && error) == false) { return 0; }   enum x11042b1 = f11042b1();

static if           (is(typeof(true  || error)) == false) {} else { static assert(0); }
static if           (is(typeof(false && error)) == false) {} else { static assert(0); }
static assert       (is(typeof(true  || error)) == false);
static assert       (is(typeof(false && error)) == false);
int f11042a2()() if (is(typeof(true  || error)) == false) { return 0; }   enum x11042a2 = f11042a2();
int f11042b2()() if (is(typeof(false && error)) == false) { return 0; }   enum x11042b2 = f11042b2();

static if           (__traits(compiles, true  || error) == false) {} else { static assert(0); }
static if           (__traits(compiles, false && error) == false) {} else { static assert(0); }
static assert       (__traits(compiles, true  || error) == false);
static assert       (__traits(compiles, false && error) == false);
int f11042a3()() if (__traits(compiles, true  || error) == false) { return 0; }   enum x11042a3 = f11042a3();
int f11042b3()() if (__traits(compiles, false && error) == false) { return 0; }   enum x11042b3 = f11042b3();

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=11554

enum E11554;
static assert(is(E11554 == enum));

struct Bro11554(N...) {}
static assert(!is(E11554 unused : Bro11554!M, M...));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=12302

template isCallable12302(T...)
    if (T.length == 1)
{
    static if (is(typeof(& T[0].opCall) == delegate))
        enum bool isCallable12302 = true;
    else
    static if (is(typeof(& T[0].opCall) V : V*) && is(V == function))
        enum bool isCallable12302 = true;
    else
        enum bool isCallable12302 = true;
}

class A12302
{
    struct X {}
    X x;
    auto opDispatch(string s, TArgs...)(TArgs args)
    {
        mixin("return x."~s~"(args);");
    }
}

A12302 func12302() { return null; }
enum b12302 = isCallable12302!func12302;

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=12476

template A12476(T) {  }

struct S12476(T)
{
    alias B = A12476!T;
}

class C12476(T)
{
    alias B = A12476!T;
}

struct Bar12476(alias Foo)
{
    Foo!int baz;
    alias baz this;
}

alias Identity12476(alias A) = A;

alias sb12476 = Identity12476!(Bar12476!S12476.B);
alias cb12476 = Identity12476!(Bar12476!C12476.B);

static assert(__traits(isSame, sb12476, A12476!int));
static assert(__traits(isSame, cb12476, A12476!int));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=12506

import imports.a12506;
private           bool[9] r12506a = f12506!(i => true)(); // OK
private immutable bool[9] r12506b = f12506!(i => true)(); // OK <- error

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=12555

class A12555(T)
{
    Undef12555 error;
}

static assert(!__traits(compiles, {
    class C : A12555!C  { }
}));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=11622

class A11622(T)
{
    B11622!T foo()
    {
        return new B11622!T;
    }
}

class B11622(T) : T
{
}

static assert(!__traits(compiles, {
    class C : A11622!C  { }
}));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=12688

void writeln12688(A...)(A) {}

struct S12688
{
    int foo() @property { return 1; }
}

void test12688()
{
    S12688 s;
    s.foo.writeln12688;   // ok
    (s.foo).writeln12688; // ok <- ng
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=12703

struct S12703
{
    this(int) {}
}

final class C12703
{
    S12703 s = S12703(1);
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=12799

struct A12799
{
    int a;
    enum C = A12799.sizeof;
    enum D = C; // OK <- Error
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=13236

enum bug13286 = is(typeof({ struct S { S x; } }));

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=13280

struct S13280
{
    alias U = ubyte;
    alias T1 =       ubyte[this.sizeof]; // ok
    alias T2 = const     U[this.sizeof]; // ok
    alias T3 = const ubyte[this.sizeof]; // ok <- error
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=13481

mixin template Mix13481(void function() callback)
{
    static this()
    {
        callback();
    }
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=13564

class E13564(T)
{
    int pos;
}

class C13564(T)
{
    struct S
    {
        ~this()
        {
            C13564!int c;
            c.element.pos = 0;
        }
    }

    E13564!T element;
}

void test13564()
{
    auto c = new C13564!int();
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=14166

struct Proxy14166(T)
{
    T* ptr;
    ref deref() { return *ptr; }
    alias deref this;
}
struct Test14166
{
    auto opIndex() { return this; }
    auto opIndex(int) { return 1; }
}
template Elem14166a(R) { alias Elem14166a = typeof(R.init[][0]); }
template Elem14166b(R) { alias Elem14166b = typeof(R.init[0]); }
void test14166()
{
    alias T = Proxy14166!Test14166;
    static assert(is(Elem14166a!T == int));     // rejects-valid case
    static assert(is(Elem14166b!T == int));     // regression case
}

// other related cases
struct S14166
{
    int x;
    double y;
    int[] a;
    S14166 opUnary(string op : "++")() { return this;  }
}
S14166 s14166;

struct X14166 { this(int) { } X14166 opAssign(int) { return this; } }
X14166[int] aa14166;
X14166[int] makeAA14166() { return aa14166; }

struct Tup14166(T...) { T field; alias field this; }
Tup14166!(int, int) tup14166;
Tup14166!(int, int) makeTup14166() { return tup14166; }
alias TT14166(T...) = T;

static assert(is(typeof((s14166.x += 1) = 2) == int));     // ok <- error
static assert(is(typeof(s14166.a.length += 2) == size_t)); // ok <- error
static assert(is(typeof(s14166++) == S14166));             // ok <- error
static assert(is(typeof(s14166.x ^^ 2) == int));           // ok <- error
static assert(is(typeof(s14166.y ^^= 2.5) == double));     // ok <- error
static assert(is(typeof(makeAA14166()[0] = 1) == X14166)); // ok <- error
static assert(is(typeof(tup14166.field = makeTup14166()) == TT14166!(int, int))); // ok <- error

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=14388

@property immutable(T)[] idup14388(T)(T[] a)
{
    alias U = immutable(T);
    U[] res;
    foreach (ref e; a)
        res ~= e;
    return res;
}

struct Data14388(A14388 a)
{
    auto foo()
    {
        return Data14388!a.init;    // [B]
    }
}

struct A14388
{
    struct Item {}

    immutable(Item)[] items;

    this(int dummy)
    {
        items = [Item()].idup14388;
    }
}

void test14388()
{
    auto test = Data14388!(A14388(42)).init.foo();  // [A]
    /*
     * A(42) is interpreter to a struct literal A([immutable(Item)()]).
     * The internal VarDeclaration with STCmanifest for the Data's template parameteter 'a'
     * calls syntaxCopy() on its ((ExpInitializer *)init)->exp in VarDeclaration::semantic(),
     * and 'immutable(Item)()'->syntaxCopy() had incorrectly removed the qualifier.
     * Then, the arguments of two Data template instances at [A] and [B] had become unmatch,
     * and the second instantiation had created the AST duplication.
     */
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=15163

void function() func15164(int[] arr)
{
    return () { };
}

void test15163()
{
    auto arr = [[0]];
    func15164(arr[0])();
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=3438

import core.vararg;
struct S3438_1 { this(int x, int y = 1) { } }
struct S3438_2 { this(int x, ...) { } }
struct S3438_3 { this(int x, int[] arr...) { } }
struct S3438_4 { this(...) { } }
struct S3438_5 { this(int[] arr...) { } }

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=15362

void func15362()
{
    assert(true);
    assert(true,);
    assert(true, "So true");
    assert(true, "Very, very true",);
    static assert(true);
    static assert(true,);
    static assert(true, "So true");
    static assert(true, "Very, very true",);
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=15799

interface I15799
{
    void funA();

    void funB(int n)
    in {
        assert(n);
    }; // Semicolon is not a part of function declaration. It's an empty declaration.
}

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=21163

struct B21163
{
    void function(scope int) fp;
}

B21163 b21163 = {
    (scope int x){}
};

/***************************************************/
// https://issues.dlang.org/show_bug.cgi?id=11624

interface I11624
{
    void foo();
}

static assert(!__traits(compiles,
{
    static class C11624 : I11624 { }
}));