https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83262
--- Comment #11 from anlauf at gcc dot gnu.org ---
(In reply to Thomas Koenig from comment #9)
> Created attachment 64471 [details]
> Updated test case
>
> Here's an update on the test case.
You may want to apply:
--- asdf.f90.orig 2026-05-16 16:07:33.523572145 +0200
+++ asdf.f90 2026-05-16 16:11:51.443302464 +0200
@@ -204,7 +204,7 @@
do i = 1,N
- key = mod(n,10) + 1
+ key = mod(i,10) + 1
if ( key .eq. 1 ) then
ss = ss + dble(12)*x1*dble((-1)**key)
@@ -278,7 +278,7 @@
do i = 1,N
- key = mod(n,10) + 1
+ key = mod(i,10) + 1
if ( key .eq. 1 ) then
ss = ss + dble(12)*x1*dble((-1)**key)
