diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2015-02-21 18:57:02 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2015-02-21 19:57:02 +0100 |
| commit | b3a472c0ff4e7da13571975908afd71c3a7fd993 (patch) | |
| tree | d18a7b7bca7d5da3c1b34178b7fb4dddb1abfc62 | |
| parent | 0cf5e9df8df35ef2261f1457ffbc3944da474450 (diff) | |
| download | gcc-b3a472c0ff4e7da13571975908afd71c3a7fd993.zip gcc-b3a472c0ff4e7da13571975908afd71c3a7fd993.tar.gz gcc-b3a472c0ff4e7da13571975908afd71c3a7fd993.tar.bz2 | |
re PR ada/65156 (FAIL: gnat.dg/timing_events.adb execution test)
PR ada/65156
* gnat.dg/timing_events.adb: Removed, invalid test.
From-SVN: r220889
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gnat.dg/timing_events.adb | 29 |
2 files changed, 5 insertions, 29 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 011e1a3..e91532c 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2015-02-21 Arnaud Charlet <charlet@adacore.com> + + PR ada/65156 + * gnat.dg/timing_events.adb: Removed, invalid test. + 2015-02-20 Aldy Hernandez <aldyh@redhat.com> PR debug/58123 diff --git a/gcc/testsuite/gnat.dg/timing_events.adb b/gcc/testsuite/gnat.dg/timing_events.adb deleted file mode 100644 index 589c142..0000000 --- a/gcc/testsuite/gnat.dg/timing_events.adb +++ /dev/null @@ -1,29 +0,0 @@ --- { dg-do run } - -procedure Timing_Events is - type Timing_Event_Handler is access protected procedure; - - protected PO is - entry Test; - procedure Proc; - private - Data : Integer := 99; - end PO; - - protected body PO is - entry Test when True is - Handler : Timing_Event_Handler := Proc'Access; - begin - Handler.all; - end Test; - - procedure Proc is - begin - if Data /= 99 then - raise Program_Error; - end if; - end Proc; - end PO; -begin - PO.Test; -end; |