1! { dg-do run } 2! Suppress warnings about misaligned common blocks. 3! { dg-options "-w" } 4! Check misaligned common blocks. 5program prog 6 common /block/ a, b, c 7 integer(kind=1) a 8 integer b, c 9 a = 1 10 b = HUGE(b) 11 c = 2 12 call foo 13end program 14subroutine foo 15 common /block/ a, b, c 16 integer(kind=1) a 17 integer b, c 18 if (a .ne. 1 .or. b .ne. HUGE(b) .or. c .ne. 2) call abort 19end subroutine 20