RISC-V: Silence expected Ada testsuite warning.

	gcc/testsuite/
	* gnat.dg/warn5.adb: Expect warning for riscv*-*-*.

From-SVN: r262608

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 48637b74d8a6538f4a9e625bc15b60fa88309f36..a5309ec95fc0006ee32d66142871b7572a4631d5 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2018-07-12  Jim Wilson  <jimw@sifive.com>
+
+       * gnat.dg/warn5.adb: Expect warning for riscv*-*-*.
+
 2018-07-12  Kito Cheng  <kito.cheng@gmail.com>
 
         * gcc.target/riscv/interrupt-conflict-mode.c: New.

diff --git a/gcc/testsuite/gnat.dg/warn5.adb b/gcc/testsuite/gnat.dg/warn5.adb
index 77e4a66f7331336564911fc39ec2c3e9daeb93c2..61f7697248073033caf35399b9073c7c02192bd5 100644 (file)
--- a/gcc/testsuite/gnat.dg/warn5.adb
+++ b/gcc/testsuite/gnat.dg/warn5.adb
@@ -26,7 +26,7 @@ procedure Warn5 is
 
   function Pointer (Pos : Natural; List : List_Type) return Pointer_Type is
   begin
-    return To_Ptr(List.A(Pos)'Address); -- { dg-warning "source alignment" "" { target alpha*-*-* arm*-*-* hppa*-*-* ia64-*-* mips*-*-* sparc*-*-* } }
+    return To_Ptr(List.A(Pos)'Address); -- { dg-warning "source alignment" "" { target alpha*-*-* arm*-*-* hppa*-*-* ia64-*-* mips*-*-* riscv*-*-* sparc*-*-* } }
   end;
 
 begin