diff --git a/testsuite/tests/ghci/scripts/T10110.script b/testsuite/tests/ghci/scripts/T10110.script new file mode 100644 index 0000000000000000000000000000000000000000..df67c30f2b641149e6582a0aea325145f6dfbe05 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T10110.script @@ -0,0 +1,5 @@ +:set -fobject-code +:load T10110A T10110B T10110C +T10110A.a +T10110B.b +T10110C.c diff --git a/testsuite/tests/ghci/scripts/T10110.stdout b/testsuite/tests/ghci/scripts/T10110.stdout new file mode 100644 index 0000000000000000000000000000000000000000..21cc9a89d1285b41b6ac7b840d1717f683d6c5cc --- /dev/null +++ b/testsuite/tests/ghci/scripts/T10110.stdout @@ -0,0 +1,3 @@ +3 +5 +8 diff --git a/testsuite/tests/ghci/scripts/T10110A.hs b/testsuite/tests/ghci/scripts/T10110A.hs new file mode 100644 index 0000000000000000000000000000000000000000..8482e7f673b3381761854ed6413d2ea40860dee1 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T10110A.hs @@ -0,0 +1,4 @@ +module T10110A (a) where +{-# NOINLINE a #-} +a :: Int +a = 3 diff --git a/testsuite/tests/ghci/scripts/T10110B.hs b/testsuite/tests/ghci/scripts/T10110B.hs new file mode 100644 index 0000000000000000000000000000000000000000..65cfc7efedceb0c1dcd8c7a8dd4a117aa813b209 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T10110B.hs @@ -0,0 +1,3 @@ +module T10110B (b) where +b :: Int +b = 5 diff --git a/testsuite/tests/ghci/scripts/T10110C.hs b/testsuite/tests/ghci/scripts/T10110C.hs new file mode 100644 index 0000000000000000000000000000000000000000..70692076a4d1130deec9690c7508602b68f7e812 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T10110C.hs @@ -0,0 +1,5 @@ +module T10110C (c) where +import T10110A (a) +import T10110B (b) +c :: Int +c = a+b diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 85ba5afe175d08a46c3b90165652eeec52049f74..e0f230185b5f041b40f15823d22b849955cf1303 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -217,3 +217,4 @@ test('T10408A', normal, run_command, test('T10408B', normal, run_command, ['$MAKE -s --no-print-directory T10408B']) test('T10248', normal, ghci_script, ['T10248.script']) +test('T10110', normal, ghci_script, ['T10110.script'])