gcc/testsuite/gfortran.dg/common_align_2.f90

   1 ! { dg-do run }
   2 ! { dg-options "-pedantic-errors -mdalign" { target sh*-*-* } }
   3 ! Tests the fix for PR37614, in which the alignment of commons followed
   4 ! g77 rather than the standard or other compilers.
   5 !
   6 ! Contributed by Tobias Burnus  <burnus@gcc.gnu.org>
   7 !
   8 subroutine foo (z)
   9   real(8) x, y, z
  10   common i(8)
  11   equivalence (x, i(3)),(y,i(7))
  12   if ((i(1) .ne. 42) .or. (i(5) .ne. 43)) STOP 1
  13   if ((i(2) .ne. 0) .or. (i(2) .ne. 0)) STOP 2
  14   if ((x .ne. z) .or. (y .ne. z)) STOP 3
  15 end subroutine
  16
  17 subroutine bar
  18   common i(8)
  19   i = 0
  20 end subroutine
  21
  22   real(8) x, y
  23   common i, x, j, y ! { dg-warning "Padding" }
  24   call bar
  25   i = 42
  26   j = 43
  27   x = atan (1.0)*4.0
  28   y = x
  29   call foo (x)
  30 end
  31