[Bug fortran/123253] [16 regression] rejection of valid code

[juergen.reuter at desy dot de]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=123253

--- Comment #1 from Jürgen Reuter <juergen.reuter at desy dot de> ---
Created attachment 63121
  --> https://gcc.gnu.org/bugzilla/attachment.cgi?id=63121&action=edit
First complete reproducer

This is the first complete reproducer. I will try to reduce this now to a
shorter reproducer, ideally in a single file.