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

["kargl at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>]

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

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |kargl at gcc dot gnu.org

--- Comment #7 from kargl at gcc dot gnu.org ---
(In reply to Dominique d'Humieres from comment #5)
> The problem is gone if I revert revision r229540.

A casual perusal on sym in gdb shows that the construction
of the intrinsic modules is incorrect.  For the code in
comment #1, 

(gdb) p *sym
$2 = {name = 0x2039bf000 "ik", module = 0x2039a3a30 "iso_fortran_env", 
  declared_at = {nextc = 0x203629e2c, lb = 0x203629dc0}, ts = {
    type = BT_INTEGER, kind = 4, u = {derived = 0x0, cl = 0x0, pad = 0}, 
    interface = 0x0, is_c_interop = 0, is_iso_c = 0, f90_type = BT_UNKNOWN, 
    deferred = false}, attr = {allocatable = 0, dimension = 0, 
    codimension = 0, external = 0, intrinsic = 0, optional = 0, pointer = 0, 
    target = 0, value = 0, volatile_ = 0, temporary = 0, dummy = 0, 
    result = 0, assign = 0, threadprivate = 0, not_always_present = 0, 
    implied_index = 0, subref_array_pointer = 0, proc_pointer = 0, 
    asynchronous = 0, contiguous = 0, fe_temp = 0, class_pointer = 0, 
    save = SAVE_NONE, data = 0, is_protected = 0, use_assoc = 1, 
    used_in_submodule = 0, use_only = 0, use_rename = 0, imported = 0, 

Notice name is 'ik', but neither use_only nor use_rename is set.

Revision 229540 isn't the problem.