[Bug fortran/69455] [5/6 Regression] Linking error(s) when using intrinsic modules in two BLOCK

[dominiq at lps dot ens.fr]

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

--- Comment #1 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
Similar problem with

block
  use, intrinsic :: ISO_FORTRAN_ENV, only: wp => REAL32, ik => INT32 
  print *, ik, wp
end block

block
  use, intrinsic :: ISO_FORTRAN_ENV, only: wp => REAL64, ik => INT64
  print *, ik, wp
end block

end

While the following variant compiles and executes as expected

  use ISO_FORTRAN_ENV, only: wp => REAL64, ik => INT64 
block
  use ISO_FORTRAN_ENV, only: wp => REAL32, ik => INT32 
  print *, ik, wp
end block
  print *, ik, wp

end