diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-31 13:02:18 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-03-31 13:02:18 +0200 |
| commit | 9b1b8df212720add1ad9c702a5c0d0fd8b9d9ac3 (patch) | |
| tree | 0894231675e43ec3137c80abfd97ad254d20c685 /gcc | |
| parent | 550386ada786f5c08050abb8fda4556ea5563ebf (diff) | |
| download | gcc-9b1b8df212720add1ad9c702a5c0d0fd8b9d9ac3.zip gcc-9b1b8df212720add1ad9c702a5c0d0fd8b9d9ac3.tar.gz gcc-9b1b8df212720add1ad9c702a5c0d0fd8b9d9ac3.tar.bz2 | |
Removed, causes resource issues on some environments.
From-SVN: r133750
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/gnat.dg/too_many_tasks.adb | 25 |
1 files changed, 0 insertions, 25 deletions
diff --git a/gcc/testsuite/gnat.dg/too_many_tasks.adb b/gcc/testsuite/gnat.dg/too_many_tasks.adb deleted file mode 100644 index 5d01570..0000000 --- a/gcc/testsuite/gnat.dg/too_many_tasks.adb +++ /dev/null @@ -1,25 +0,0 @@ --- { dg-do run } - -procedure too_many_tasks is - Global : Natural := 0; - function Output return Integer is - begin - Global := Global + 1; - return Global; - end Output; - - task type A; - task type B; - - task body A is - I : Integer := Output; - T : B; - begin null; end A; - - task body B is - I : Integer := Output; - T : A; - begin null; end B; - - T : A; -begin null; end; |