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! 8subroutine 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 15end subroutine 16 17subroutine bar 18 common i(8) 19 i = 0 20end 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) 30end 31 32