[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 #3 from Dominique d'Humieres <dominiq at lps dot ens.fr> ---
For the record, the test in comment 1 is a reduced version of the James Van
Busker's long test at
https://groups.google.com/forum/#!topic/comp.lang.fortran/WzM5bNfB-hw.

The following code

module kind
  integer, parameter :: INT32=4, INT64=8, REAL32=4, REAL64=8
end module kind

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

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

end

compiles and executes without problem on trunk.