1 files changed, 12 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr20954.f b/gcc/testsuite/gfortran.dg/pr20954.f
new file mode 100644
index 000000000..be820c1e9
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/pr20954.f
@@ -0,0 +1,12 @@
+      ! { dg-do run }
+      ! { dg-options "-fdefault-integer-8" }
+      ! Program to test character length type
+      Program pr20954
+      character*16 string (5)
+      character*5 filename
+      character*80 line
+      filename = 'input'
+      open (2,file=filename)
+      write (line, '(5a16)') (string(i),i=1,5)
+      close (2, status='delete')
+      end