https://gcc.gnu.org/g:a8bc113ef2e4803083f2d943a1e3c06d459fe6ed
commit a8bc113ef2e4803083f2d943a1e3c06d459fe6ed Author: Mikael Morin <mik...@gcc.gnu.org> Date: Wed Jul 9 10:39:38 2025 +0200 Revert "Ajout directive warning" This reverts commit 1268e25a196e41ebeba91f41271538fd56f0d850. 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 4ac7e06e2c5e..14e8f99d391e 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(:) ! { dg-note {declared here} {A's fields used initialized in dead code} { target { ! __OPTIMIZE__ } } } + integer, allocatable :: A(:) character(len=:), allocatable :: my_str character(len=15), allocatable :: my_str15 - A = [(3*j, j=1, 10)] ! { dg-warning {may be used uninitialized} {A's fields used uninitialized in dead code} { target { ! __OPTIMIZE__ } } } + A = [(3*j, j=1, 10)] call foo (A, size(A)) call bar (A) my_str = "1234567890"