RISC-V: Unescape chars in pr111566.f90 test
Checks
Commit Message
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>
---
gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90 | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
--
2.34.1
Comments
On 10/3/23 14:19, Patrick O'Neill wrote:
> 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.
LOL. Yea, this is OK.
jeff
On 10/3/23 14:55, Jeff Law wrote:
>
>
> On 10/3/23 14:19, Patrick O'Neill wrote:
>> 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.
> LOL. Yea, this is OK.
>
> jeff
Committed.
Patrick
@@ -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