[Bug fortran/66377] New: [F95] Wrong-code with equivalenced array in module

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

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

            Bug ID: 66377
           Summary: [F95] Wrong-code with equivalenced array in module
           Product: gcc
           Version: 6.0
            Status: UNCONFIRMED
          Severity: normal
          Priority: P3
         Component: fortran
          Assignee: unassigned at gcc dot gnu.org
          Reporter: fxcoudert at gcc dot gnu.org
  Target Milestone: ---

This code:

module constant
  integer :: x(2), x1, x2
  equivalence (x(1),x1), (x(2),x2)
end module

program test
  use constant
  x = (/1, 2/)
  call another()
contains
  subroutine another()
    use constant, only : x1
    print *, x1
  end subroutine
end program

should output "1", but outputs "0" with all versions of gfortran tested.