1! { dg-do run }
2! { dg-options "-fno-align-commons" }
3
4! PR fortran/37486
5!
6! Test for -fno-align-commons.
7!
8! Contributed by Tobias Burnus <burnus@gcc.gnu.org>.
9
10subroutine one()
11  integer :: i
12  common i
13  if (i/=5) STOP 1
14end subroutine one
15
16program test
17integer :: i
18real(8) :: r8
19common i, r8
20i = 5
21call one()
22end program test
23