1 ! { dg-do run } 2 ! { dg-options "-fdefault-integer-8" } 3 ! Program to test character length type 4 Program pr20954 5 character*16 string (5) 6 character*5 filename 7 character*80 line 8 filename = 'input' 9 open (2,file=filename) 10 write (line, '(5a16)') (string(i),i=1,5) 11 close (2, status='delete') 12 end 13