1 files changed, 19 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/common_4.f90 b/gcc/testsuite/gfortran.dg/common_4.f90
new file mode 100644
index 000000000..cde2e27a8
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/common_4.f90
@@ -0,0 +1,19 @@
+! { dg-do run }
+! Suppress warnings about misaligned common blocks.
+! { dg-options "-w" }
+! Check misaligned common blocks.
+program prog
+  common /block/ a, b, c
+  integer(kind=1) a
+  integer b, c
+  a = 1
+  b = HUGE(b)
+  c = 2
+  call foo
+end program
+subroutine foo
+  common /block/ a, b, c
+  integer(kind=1) a
+  integer b, c
+  if (a .ne. 1 .or. b .ne. HUGE(b) .or. c .ne. 2) call abort
+end subroutine