https://gcc.gnu.org/g:a8f36de5aa52db2864a4c068dd0b4c9464385159
commit r15-4501-ga8f36de5aa52db2864a4c068dd0b4c9464385159
Author: Thomas Koenig <tkoe...@gcc.gnu.org>
Date: Sat Oct 19 16:21:48 2024 +0200
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:
---
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 0d169ac92d3c..d549483b269a 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
