From a8f36de5aa52db2864a4c068dd0b4c9464385159 Mon Sep 17 00:00:00 2001
From: Thomas Koenig <tkoenig@gcc.gnu.org>
Date: Sat, 19 Oct 2024 16:21:48 +0200
Subject: [PATCH] Add missing dg-error to unsigned_38.f90.

gcc/testsuite/ChangeLog:

	PR fortran/117225
	* gfortran.dg/unsigned_38.f90: Add missing dg-error directive.
---
 gcc/testsuite/gfortran.dg/unsigned_38.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/testsuite/gfortran.dg/unsigned_38.f90 b/gcc/testsuite/gfortran.dg/unsigned_38.f90
index 0d169ac92d3..d549483b269 100644
--- a/gcc/testsuite/gfortran.dg/unsigned_38.f90
+++ b/gcc/testsuite/gfortran.dg/unsigned_38.f90
@@ -2,5 +2,5 @@
 ! { dg-options "-funsigned" }
 program main
   unsigned, parameter :: u = 7u
-  print *,mod(-(u+1u),u)
+  print *,mod(-(u+1u),u) ! { dg-error "Operand of unary numeric operator" }
 end program main
-- 
2.47.2