Re: [Ada] Fix 32/64bit mistake on SYSTEM_INFO component in s-win32

[Olivier Hainque <hainque@adacore.com>]

[-- Attachment #1: Type: text/plain, Size: 629 bytes --]

Hello Iain & Rainer,

> On 19 Sep 2019, at 18:40, Olivier Hainque <hainque@adacore.com> wrote:

>>> Given that the test cannot compile on anything but *-*-linux* and
>>> *-*-mingw*, I'd rather restrict the test to those two (or more targets
>>> that decide to implement the missing interface).

> Works for me as well.
[...]
> We can take care of adding the required filter.

I have just committed the attached patch to this effect.
Thanks again for the heads-up!

Cheers,

Olivier

---

2019-09-20  Olivier Hainque  <hainque@adacore.com>

	testsuite/

        * gnat.dg/system_info1.adb: Restrict to *-*-linux* and *-*-mingw*.


[-- Attachment #2: system_info1.diff --]
[-- Type: application/octet-stream, Size: 738 bytes --]

diff --git a/gcc/testsuite/gnat.dg/system_info1.adb b/gcc/testsuite/gnat.dg/system_info1.adb
index 493a18e..e299bc4 100644
--- a/gcc/testsuite/gnat.dg/system_info1.adb
+++ b/gcc/testsuite/gnat.dg/system_info1.adb
@@ -1,4 +1,9 @@
---  { dg-do run }
+--  A basic test initially intended to check that
+--  System.Task_Info.Number_Of_Processors yields sensible results on
+--  both 32bit and 64bit Windows. Additional configurations where the
+--  feature was verified to work can opt-in.
+
+--  { dg-do run { target *-*-mingw* *-*-linux* } }
 
 with System.Multiprocessors;
 with System.Task_Info;
@@ -20,4 +25,4 @@ begin
    if Nprocs /= Integer (Ncpus) then
       raise Program_Error;
    end if;
-end;
\ No newline at end of file
+end;