diff options
| author | Thomas Schwinge <thomas@codesourcery.com> | 2020-10-27 07:26:24 +0100 |
|---|---|---|
| committer | Thomas Schwinge <thomas@codesourcery.com> | 2020-11-06 14:00:49 +0100 |
| commit | 52b74462176e4741ce1248c055e6bb1cb902c025 (patch) | |
| tree | 3ff952637bb05a42b2a9dc928279443c82f484f9 | |
| parent | 4dfa1789ab6560a69de22afe7982f372f598c5b8 (diff) | |
| download | gcc-52b74462176e4741ce1248c055e6bb1cb902c025.zip gcc-52b74462176e4741ce1248c055e6bb1cb902c025.tar.gz gcc-52b74462176e4741ce1248c055e6bb1cb902c025.tar.bz2 | |
Remove 'gfortran.dg/goacc/loop-6.f95'
What it's testing is adequately covered in other
'gfortran.dg/goacc/loop-2-parallel-*.f95' testcases.
gcc/testsuite/
* gfortran.dg/goacc/loop-6.f95: Remove.
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/loop-6.f95 | 74 |
1 files changed, 0 insertions, 74 deletions
diff --git a/gcc/testsuite/gfortran.dg/goacc/loop-6.f95 b/gcc/testsuite/gfortran.dg/goacc/loop-6.f95 deleted file mode 100644 index d0855b4..0000000 --- a/gcc/testsuite/gfortran.dg/goacc/loop-6.f95 +++ /dev/null @@ -1,74 +0,0 @@ -program test - implicit none - integer :: i, j - - !$acc parallel - !$acc loop auto - DO i = 1,10 - ENDDO - !$acc loop gang - DO i = 1,10 - ENDDO - !$acc loop gang(static:5) - DO i = 1,10 - ENDDO - !$acc loop gang(static:*) - DO i = 1,10 - ENDDO - !$acc loop gang - DO i = 1,10 - !$acc loop vector - DO j = 1,10 - ENDDO - !$acc loop worker - DO j = 1,10 - ENDDO - ENDDO - - !$acc loop worker - DO i = 1,10 - ENDDO - !$acc loop worker - DO i = 1,10 - !$acc loop vector - DO j = 1,10 - ENDDO - ENDDO - !$acc loop gang worker - DO i = 1,10 - ENDDO - - !$acc loop vector - DO i = 1,10 - ENDDO - !$acc loop vector(5) ! { dg-error "length arguments" } - DO i = 1,10 - ENDDO - !$acc loop vector(length:5) ! { dg-error "length arguments" } - DO i = 1,10 - ENDDO - !$acc loop vector - DO i = 1,10 - ENDDO - !$acc loop gang vector - DO i = 1,10 - ENDDO - !$acc loop worker vector - DO i = 1,10 - ENDDO - - !$acc loop auto - DO i = 1,10 - ENDDO - !$acc end parallel - - !$acc parallel loop vector - DO i = 1,10 - ENDDO - !$acc parallel loop vector(5) ! { dg-error "length arguments" } - DO i = 1,10 - ENDDO - !$acc parallel loop vector(length:5) ! { dg-error "length arguments" } - DO i = 1,10 - ENDDO -end |