From 264c073993e2887308144fc8e27e2bf4a3bcd353 Mon Sep 17 00:00:00 2001 From: Olivier Hainque Date: Fri, 20 Sep 2019 12:17:20 +0000 Subject: [PATCH] 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 --- gcc/testsuite/ChangeLog | 4 ++++ gcc/testsuite/gnat.dg/system_info1.adb | 9 +++++++-- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 8e1b4be..8868ad1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,7 @@ +2019-09-20 Olivier Hainque + + * gnat.dg/system_info1.adb: Restrict to *-*-linux* and *-*-mingw*. + 2019-09-20 Eric Botcazou * 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 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; -- 2.7.4