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