diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2020-08-21 13:28:06 +0200 |
|---|---|---|
| committer | Kwok Cheung Yeung <kcy@codesourcery.com> | 2022-06-21 14:11:27 +0100 |
| commit | 69e65667549c7e323f02b52d9579ee094d123732 (patch) | |
| tree | 1c4cf6732cb3348d11b302e0238688342655ed95 /gcc | |
| parent | 8fa50b8d9ad1d5cb8cd911ef7566d7a95dd8656c (diff) | |
| download | gcc-69e65667549c7e323f02b52d9579ee094d123732.zip gcc-69e65667549c7e323f02b52d9579ee094d123732.tar.gz gcc-69e65667549c7e323f02b52d9579ee094d123732.tar.bz2 | |
Update dg-* in gfortran.dg/gomp/pr67500.f90
Contrary to GCC 11, OG10 uses an error instead of a warning,
cf. commit 271c7fef548a86676d304b1eb2be5c0d47280bd6.
gcc/testsuite/
* gfortran.dg/gomp/pr67500.f90: Change dg-warning to
dg-error.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog.omp | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/gomp/pr67500.f90 | 8 |
2 files changed, 9 insertions, 4 deletions
diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp index 1e2ed0b..cb27406 100644 --- a/gcc/testsuite/ChangeLog.omp +++ b/gcc/testsuite/ChangeLog.omp @@ -1,3 +1,8 @@ +2020-08-21 Tobias Burnus <tobias@codesourcery.com> + + * gfortran.dg/gomp/pr67500.f90: Change dg-warning to + dg-error. + 2020-08-19 Sandra Loosemore <sandra@codesourcery.com> Annotate inner loops in "acc kernels loop" directives (Fortran). diff --git a/gcc/testsuite/gfortran.dg/gomp/pr67500.f90 b/gcc/testsuite/gfortran.dg/gomp/pr67500.f90 index 1cecdc4..11ed69f 100644 --- a/gcc/testsuite/gfortran.dg/gomp/pr67500.f90 +++ b/gcc/testsuite/gfortran.dg/gomp/pr67500.f90 @@ -10,11 +10,11 @@ subroutine f2 end subroutine f3 (i) - !$omp declare simd simdlen(-2) ! { dg-warning "INTEGER expression of SIMDLEN clause at .1. must be positive" } + !$omp declare simd simdlen(-2) ! { dg-error "INTEGER expression of SIMDLEN clause at .1. must be positive" } end subroutine subroutine f4 - !$omp declare simd simdlen(0) ! { dg-warning "INTEGER expression of SIMDLEN clause at .1. must be positive" } + !$omp declare simd simdlen(0) ! { dg-error "INTEGER expression of SIMDLEN clause at .1. must be positive" } end subroutine foo(p, d, n) @@ -31,11 +31,11 @@ subroutine foo(p, d, n) do i = 1, 16 end do - !$omp simd safelen(-2) ! { dg-warning "INTEGER expression of SAFELEN clause at .1. must be positive" } + !$omp simd safelen(-2) ! { dg-error "INTEGER expression of SAFELEN clause at .1. must be positive" } do i = 1, 16 end do - !$omp simd safelen(0) ! { dg-warning "INTEGER expression of SAFELEN clause at .1. must be positive" } + !$omp simd safelen(0) ! { dg-error "INTEGER expression of SAFELEN clause at .1. must be positive" } do i = 1, 16 end do |