Le 22/08/2026 à 16:41, Paul Richard Thomas a écrit :
diff --git a/gcc/testsuite/gfortran.dg/pr126909.f90
b/gcc/testsuite/gfortran.dg/pr126909.f90
new file mode 100644
index 00000000000..bb95d9d7cdf
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr126909.f90
@@ -0,0 +1,77 @@
+! {dg-do run }
There is a space missing here: ! { dg-do run }
Did you check the testcase was actually executed?
+! { dg-options "-fdump-tree-original" }
+!
+! Test the fix for PR126909, in which END PROGRAM/FUNCTION/SUBROUTINE labels
+! were not being generated correctly, when preceded by contain sections.
+!
+! Contributed by Steve Kargl <[email protected]>
+!
(...)
