diff options
| author | Patrick O'Neill <patrick@rivosinc.com> | 2023-10-03 13:13:01 -0700 |
|---|---|---|
| committer | Patrick O'Neill <patrick@rivosinc.com> | 2023-10-03 15:03:33 -0700 |
| commit | 645f2a7dd47aa84d94df594bbd736085e51fc637 (patch) | |
| tree | 289ba49c167b299124e1a5e47ed15ee079d42736 | |
| parent | d8808c37d29110872fa51b98e71aef9e160b4692 (diff) | |
| download | gcc-645f2a7dd47aa84d94df594bbd736085e51fc637.zip gcc-645f2a7dd47aa84d94df594bbd736085e51fc637.tar.gz gcc-645f2a7dd47aa84d94df594bbd736085e51fc637.tar.bz2 | |
RISC-V: Unescape chars in pr111566.f90 test
Some characters are escaped which causes the testcase to fail. This
patch restores the original characters.
Tested for regressions using multilib rv32gcv-ilp32d, rv64gcv-lp64d.
gcc/testsuite/ChangeLog:
* gcc.target/riscv/rvv/fortran/pr111566.f90: Restore escaped
characters.
Signed-off-by: Patrick O'Neill <patrick@rivosinc.com>
| -rw-r--r-- | gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90 b/gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90 index 265e913..2e30dc9 100644 --- a/gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90 +++ b/gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90 @@ -1,11 +1,11 @@ ! { dg-do compile } -! { dg-options "-march=rv64gcv -mabi=lp64d -Ofast -fallow-argument-mismatch -fmax-stack-var-size=65536 -S -std=legacy -w" } +! { dg-options "-march=rv64gcv -mabi=lp64d -Ofast -fallow-argument-mismatch -fmax-stack-var-size=65536 -S -std=legacy -w" } module a integer,parameter :: SHR_KIND_R8 = selected_real_kind(12) end module a module b - use a, c => shr_kind_r8 + use a, c => shr_kind_r8 contains subroutine d(cg , km, i1, i2) real (c) ch(i2,km) @@ -22,7 +22,7 @@ contains enddo if ( cq == 0 ) then do i=i1,i2 - if( cr <= cs ) then + if( cr <= cs ) then cg= sign( min(ct, cg), cg) endif enddo |