procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

RISC-V: Unescape chars in pr111566.f90 test

Browse source 
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>
This commit is contained in:
Patrick O'Neill 2023-10-03 13:13:01 -07:00
parent d8808c37d2
commit 645f2a7dd4
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
gcc/testsuite/gcc.target/riscv/rvv/fortran/pr111566.f90
View file

@ -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