1 2 3 4 5 6 7 8 9
! { dg-do compile } subroutine s end subroutine program pr95614 common /c1/ s s = 9.0 end program