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 alignement 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)) call abort
  13   if ((i(2) .ne. 0) .or. (i(2) .ne. 0)) call abort
  14   if ((x .ne. z) .or. (y .ne. z)) call abort
  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