1 files changed, 28 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/strcommon_1.f90 b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/strcommon_1.f90
new file mode 100644
index 000000000..aa51ccf4b
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/strcommon_1.f90
@@ -0,0 +1,28 @@
+! PR14081 character variables in common blocks.
+
+subroutine test1
+  implicit none
+  common /block/ c
+  character(len=12) :: c
+
+  if (c .ne. "Hello World") call abort
+end subroutine
+
+subroutine test2
+  implicit none
+  common /block/ a
+  character(len=6), dimension(2) :: a
+
+  if ((a(1) .ne. "Hello") .or. (a(2) .ne. "World")) call abort
+end subroutine
+
+program strcommon_1
+  implicit none
+  common /block/ s, t
+  character(len=6) :: s, t
+  s = "Hello "
+  t = "World "
+  call test1
+  call test2
+end program
+