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 &quot;-march=rv64gcv -mabi=lp64d -Ofast 
-fallow-argument-mismatch -fmax-stack-var-size=65536 -S  -std=legacy -w&quot; }
+! { 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 =&gt; 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 &lt;=  cs ) then
+          if( cr <=  cs ) then
              cg= sign( min(ct,   cg),  cg)
           endif
        enddo
--
2.34.1

Reply via email to