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