gcc/testsuite/gfortran.dg/common_align_1.f90

   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
  10 subroutine one()
  11   integer :: i
  12   common i
  13   if (i/=5) call abort()
  14 end subroutine one
  15
  16 program test
  17 integer :: i
  18 real(8) :: r8
  19 common i, r8
  20 i = 5
  21 call one()
  22 end program test