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 <[email protected]>
---
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