diff options
Diffstat (limited to 'gcc/testsuite/gfortran.dg/pr20954.f')
| -rw-r--r-- | gcc/testsuite/gfortran.dg/pr20954.f | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/gcc/testsuite/gfortran.dg/pr20954.f b/gcc/testsuite/gfortran.dg/pr20954.f new file mode 100644 index 00000000000..b19b782f667 --- /dev/null +++ b/gcc/testsuite/gfortran.dg/pr20954.f @@ -0,0 +1,11 @@ + ! { 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) + end |