Hi H.J.

I got

FAIL: gfortran.dg/warn_undefined_vars_6.f90   -O  (test for excess errors)
Excess errors:
/export/gnu/import/git/sources/gcc/gcc/testsuite/gfortran.dg/warn_undefined_vars_6.f90:10:9:
Warning: Deleted feature: PAUSE statement at (1)
/export/gnu/import/git/sources/gcc/gcc/testsuite/gfortran.dg/warn_undefined_vars_6.f90:13:48:
Warning: Deleted feature: PAUSE statement at (1)

on Linux/x86-64.

Fixed as obvious and simple, shown below. Thanks for the heads-up!

Best regards

        Thomas


commit 1d8f0366ddb84589f9d1d3f8fe65d9d2223f8cb6 (HEAD -> trunk, origin/trunk)
Author: Thomas Koenig <[email protected]>
Date:   Sun Jul 5 10:12:34 2026 +0200

    Add warnings about deleted PAUSE feature to test case.

    gcc/testsuite/ChangeLog:

            PR fortran/126090
            * gfortran.dg/warn_undefined_vars_6.f90: Add warnings
            about deleted feature.

diff --git a/gcc/testsuite/gfortran.dg/warn_undefined_vars_6.f90 b/gcc/testsuite/gfortran.dg/warn_undefined_vars_6.f90
index 25e0c16def7..4709f085307 100644
--- a/gcc/testsuite/gfortran.dg/warn_undefined_vars_6.f90
+++ b/gcc/testsuite/gfortran.dg/warn_undefined_vars_6.f90
@@ -7,8 +7,9 @@ program memain
   s = "abc"
   error stop s
   stop s
-  pause s
+  pause s ! { dg-warning "Deleted feature" }
   error stop s1 ! { dg-warning "Undefined variable" }
   stop s2 ! { dg-warning "Undefined variable" }
   pause s3 ! { dg-warning "Undefined variable" }
+  ! { dg-warning "Deleted feature" " " { target "*-*-*" } .-1 }
 end program memain



Reply via email to