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 <patr...@rivosinc.com> --- gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90 | 6 +++--- 1 file 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 265e913b299..2e30dc9bfaa 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 -- 2.34.1