[gcc(refs/users/mikael/heads/unwrap_non_lvalue_v04)] Correction non_lvalue_3

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:1586e51cb6041d65c2905937e8fc8ed86901777a

commit 1586e51cb6041d65c2905937e8fc8ed86901777a
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Sun Jun 22 16:29:09 2025 +0200

    Correction non_lvalue_3

Diff:
---
 gcc/testsuite/gfortran.dg/non_lvalue_3.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/gcc/testsuite/gfortran.dg/non_lvalue_3.f90 
b/gcc/testsuite/gfortran.dg/non_lvalue_3.f90
index 4a8e936b9d05..1e3e55b58504 100644
--- a/gcc/testsuite/gfortran.dg/non_lvalue_3.f90
+++ b/gcc/testsuite/gfortran.dg/non_lvalue_3.f90
@@ -51,7 +51,7 @@ end subroutine
 ! The NON_LVALUE_EXPR is dropped if it's used as argument to a LTGT logical
 ! operator
 subroutine f05 (f05_res1, f05_res2, f05_arg1, f05_arg2)
-  integer, value :: f05_arg1, f05_arg2
+  real, value :: f05_arg1, f05_arg2
   logical, intent(out) :: f05_res1, f05_res2
   f05_res1 = f05_arg1 + 0 .lt. f05_arg2 .or. f05_arg1 + 0 .gt. f05_arg2
   f05_res2 = f05_arg1 .lt. f05_arg2 + 0 .or. f05_arg1 .gt. f05_arg2 + 0
@@ -148,8 +148,8 @@ subroutine f14 (f14_res1, f14_res2, f14_arg1, f14_arg2)
   f14_res1 = ieor(f14_arg1 + 0, f14_arg2)
   f14_res2 = ieor(f14_arg1, f14_arg2 + 0)
 end subroutine
-! { dg-final { scan-tree-dump {\*f14_res1 = f14_arg1 ^ f14_arg2;} "original" } 
}
-! { dg-final { scan-tree-dump {\*f14_res2 = f14_arg1 ^ f14_arg2;} "original" } 
}
+! { dg-final { scan-tree-dump {\*f14_res1 = f14_arg1 \^ f14_arg2;} "original" 
} }
+! { dg-final { scan-tree-dump {\*f14_res2 = f14_arg1 \^ f14_arg2;} "original" 
} }
 
 ! The NON_LVALUE_EXPR is dropped if it's used as argument to a & operator
 subroutine f15 (f15_res1, f15_res2, f15_arg1, f15_arg2)