[gcc(refs/users/mikael/heads/stabilisation_descriptor_v01)] Ajout directive warning

[Mikael Morin via Gcc-cvs]

https://gcc.gnu.org/g:3ade6072e68257d8199309d4e5814066ab6ed1d4

commit 3ade6072e68257d8199309d4e5814066ab6ed1d4
Author: Mikael Morin <mik...@gcc.gnu.org>
Date:   Tue Jul 8 22:41:06 2025 +0200

    Ajout directive warning
    
    Ajout directive note

Diff:
---
 libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90 
b/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90
index 14e8f99d391e..4ac7e06e2c5e 100644
--- a/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90
+++ b/libgomp/testsuite/libgomp.oacc-fortran/privatized-ref-2.f90
@@ -21,11 +21,11 @@
 program main
   implicit none (type, external)
   integer :: j
-  integer, allocatable :: A(:)
+  integer, allocatable :: A(:) ! { dg-note {declared here} {A's fields used 
initialized in dead code} { target { ! __OPTIMIZE__ } } }
   character(len=:), allocatable :: my_str
   character(len=15), allocatable :: my_str15
 
-  A = [(3*j, j=1, 10)]
+  A = [(3*j, j=1, 10)] ! { dg-warning {may be used uninitialized} {A's fields 
used uninitialized in dead code} { target { ! __OPTIMIZE__ } } }
   call foo (A, size(A))
   call bar (A)
   my_str = "1234567890"