summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pr95614_3.f90
blob: 7a66bec46fb3485e87b87ce630ece8e1dbdb08e5 (plain)
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