diff options
| author | Ben Gamari <ben@smart-cactus.org> | 2022-02-05 12:31:14 -0500 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2022-04-06 15:18:26 -0400 |
| commit | c6fb7aff8ae15e0b208221727518fa38c29077f8 (patch) | |
| tree | 99ddb58f91f48be1753d8a07864329df84856d4b /testsuite | |
| parent | 6be2c5a7e9187fc14d51e1ec32ca235143bb0d8b (diff) | |
| download | haskell-c6fb7aff8ae15e0b208221727518fa38c29077f8.tar.gz | |
testsuite: Test that we can build bigobj PE objects
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/codeGen/should_compile/all.T | 3 | ||||
| -rw-r--r-- | testsuite/tests/codeGen/should_compile/mk-big-obj.py | 9 |
2 files changed, 12 insertions, 0 deletions
diff --git a/testsuite/tests/codeGen/should_compile/all.T b/testsuite/tests/codeGen/should_compile/all.T index 9985580e78..0d1521bc5a 100644 --- a/testsuite/tests/codeGen/should_compile/all.T +++ b/testsuite/tests/codeGen/should_compile/all.T @@ -104,3 +104,6 @@ test('T15570', # warning: integer constant is so large that it is unsigned test('T18614', normal, compile, ['']) +test('mk-big-obj', + [unless(opsys('mingw32'), skip), pre_cmd('$PYTHON mk-big-obj.py > mk-big-obj.c')], + multimod_compile, ['mk-big-obj.c', '-v0']) diff --git a/testsuite/tests/codeGen/should_compile/mk-big-obj.py b/testsuite/tests/codeGen/should_compile/mk-big-obj.py new file mode 100644 index 0000000000..c03fdbf380 --- /dev/null +++ b/testsuite/tests/codeGen/should_compile/mk-big-obj.py @@ -0,0 +1,9 @@ +#!/usr/bin/env python3 + +for i in range(70000): + print(f''' + int __attribute__((section("text.test{i}"))) + test{i}(void) + {{ return {i}; }} + ''') + |