diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2018-11-30 21:39:30 +0100 |
|---|---|---|
| committer | Thomas Schwinge <tschwinge@gcc.gnu.org> | 2018-11-30 21:39:30 +0100 |
| commit | 020dd8e4a099df17f76e0ad15085ab865d57c63c (patch) | |
| tree | 9fc00ac2780b895a1e4e046df70b28a44848b911 /gcc | |
| parent | fc2a1f2fa6d30a2813cfaa999bf49ea21e7e11c9 (diff) | |
| download | gcc-020dd8e4a099df17f76e0ad15085ab865d57c63c.zip gcc-020dd8e4a099df17f76e0ad15085ab865d57c63c.tar.gz gcc-020dd8e4a099df17f76e0ad15085ab865d57c63c.tar.bz2 | |
[PR87924] Add (XFAILed) test cases for OpenACC wait clauses without async-arguments
gcc/testsuite/
PR c/87924
* c-c++-common/goacc/asyncwait-5.c: Update.
* gfortran.dg/goacc/asyncwait-5.f: Likewise.
From-SVN: r266686
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/testsuite/c-c++-common/goacc/asyncwait-5.c | 21 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/asyncwait-5.f | 20 |
3 files changed, 45 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 75ca70b..68186d8 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,5 +1,9 @@ 2018-11-30 Thomas Schwinge <thomas@codesourcery.com> + PR c/87924 + * c-c++-common/goacc/asyncwait-5.c: Update. + * gfortran.dg/goacc/asyncwait-5.f: Likewise. + * c-c++-common/goacc/asyncwait-5.c: New file. * gfortran.dg/goacc/asyncwait-5.f: Likewise. diff --git a/gcc/testsuite/c-c++-common/goacc/asyncwait-5.c b/gcc/testsuite/c-c++-common/goacc/asyncwait-5.c index fe6f8a0..80d4a84 100644 --- a/gcc/testsuite/c-c++-common/goacc/asyncwait-5.c +++ b/gcc/testsuite/c-c++-common/goacc/asyncwait-5.c @@ -11,4 +11,25 @@ void f() #pragma acc parallel async (2) wait (11, 12) wait (13) ; /* { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel wait\\(13\\) wait\\(12\\) wait\\(11\\) async\\(2\\)\$" 1 "original" } } */ + + +#pragma acc parallel async (3) wait + ; + /* { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel wait\\(-1\\) async\\(3\\)$" 1 "original" { xfail *-*-* } } } */ + +#pragma acc parallel async (4) wait (100) wait + ; + /* { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel wait\\(-1\\) wait\\(100\\) async\\(4\\)$" 1 "original" { xfail *-*-* } } } */ + +#pragma acc parallel async (5) wait wait (101) + ; + /* { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel wait\\(101\\) wait\\(-1\\) async\\(5\\)$" 1 "original" { xfail *-*-* } } } */ + +#pragma acc parallel async (6) wait wait (102, 103) wait wait + ; + /* { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel wait\\(-1\\) wait\\(-1\\) wait\\(103\\) wait\\(102\\) wait\\(-1\\) async\\(6\\)$" 1 "original" { xfail *-*-* } } } */ + +#pragma acc parallel async (7) wait (104) wait wait (105, 106) + ; + /* { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel wait\\(106\\) wait\\(105\\) wait\\(-1\\) wait\\(104\\) async\\(7\\)$" 1 "original" { xfail *-*-* } } } */ } diff --git a/gcc/testsuite/gfortran.dg/goacc/asyncwait-5.f b/gcc/testsuite/gfortran.dg/goacc/asyncwait-5.f index 59b8863..7ad5813 100644 --- a/gcc/testsuite/gfortran.dg/goacc/asyncwait-5.f +++ b/gcc/testsuite/gfortran.dg/goacc/asyncwait-5.f @@ -10,4 +10,24 @@ !$ACC END PARALLEL ! { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel async\\(2\\) wait\\(11\\) wait\\(12\\) wait\\(13\\)$" 1 "original" } } +!$ACC PARALLEL ASYNC (3) WAIT +!$ACC END PARALLEL +! { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel async\\(3\\) wait\\(-1\\)$" 1 "original" { xfail *-*-* } } } + +!$ACC PARALLEL ASYNC (4) WAIT (100) WAIT +!$ACC END PARALLEL +! { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel async\\(4\\) wait\\(100\\) wait\\(-1\\)$" 1 "original" { xfail *-*-* } } } + +!$ACC PARALLEL ASYNC (5) WAIT WAIT (101) +!$ACC END PARALLEL +! { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel async\\(5\\) wait\\(-1\\) wait\\(101\\)$" 1 "original" { xfail *-*-* } } } + +!$ACC PARALLEL ASYNC (6) WAIT WAIT (102, 103) WAIT WAIT +!$ACC END PARALLEL +! { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel async\\(6\\) wait\\(-1\\) wait\\(102\\) wait\\(103\\) wait\\(-1\\) wait\\(-1\\)$" 1 "original" { xfail *-*-* } } } + +!$ACC PARALLEL ASYNC (7) WAIT (104) WAIT WAIT (105, 106) +!$ACC END PARALLEL +! { dg-final { scan-tree-dump-times "(?n)#pragma acc parallel async\\(7\\) wait\\(104\\) wait\\(-1\\) wait\\(105\\) wait\\(106\\)$" 1 "original" { xfail *-*-* } } } + END |