Add missing dg-error to unsigned_38.f90.

gcc/testsuite/ChangeLog:

	PR fortran/117225
	* gfortran.dg/unsigned_38.f90: Add missing dg-error directive.

diff --git a/gcc/testsuite/gfortran.dg/unsigned_38.f90 b/gcc/testsuite/gfortran.dg/unsigned_38.f90
index 0d169ac92d3cd18c9986bafffe81c54d1898cde7..d549483b269aa0b1e66d606d83b77b29ec045588 100644 (file)
--- 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