OSDN Git Service

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