1! { dg-do compile }
2!
3! PR fortran/39594
4!
5! Contributed by Peter Knowles and reduced by Jakub Jelinek.
6!
7module pr39594
8  implicit double precision(z)
9  common /z/ z0,z1,z2,z3,z4,z5,z6,z7
10contains
11  subroutine foo
12    implicit double precision(z)
13    common /z/ z0,z1,z2,z3,z4,z5,z6,z7
14    call bar(z0)
15  end subroutine foo
16end module
17