From: Olivier Hainque <hainque@adacore.com>
Date: Fri, 20 Sep 2019 12:17:20 +0000 (+0000)
Subject: Restrict gnat.dg/system_info1.adb to Linux and Windows hosts
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=264c073993e2887308144fc8e27e2bf4a3bcd353;p=gcc.git

Restrict gnat.dg/system_info1.adb to Linux and Windows hosts

Where it is know to work, still covering the original test intent.

From-SVN: r275999
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 8e1b4be2c01..8868ad1e906 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2019-09-20  Olivier Hainque  <hainque@adacore.com>
+
+	* gnat.dg/system_info1.adb: Restrict to *-*-linux* and *-*-mingw*.
+
 2019-09-20  Eric Botcazou  <ebotcazou@adacore.com>
 
 	* gcc.dg/pr91269.c: New test.
diff --git a/gcc/testsuite/gnat.dg/system_info1.adb b/gcc/testsuite/gnat.dg/system_info1.adb
index 493a18e9077..e299bc4481e 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;