191094Sdes ! { dg-do run } 292289Sdes ! { dg-options "-fdefault-integer-8" } 391094Sdes ! Program to test character length type 491094Sdes Program pr20954 591094Sdes character*16 string (5) 691094Sdes character*5 filename 791094Sdes character*80 line 891094Sdes filename = 'input' 991094Sdes open (2,file=filename) 1091094Sdes write (line, '(5a16)') (string(i),i=1,5) 1191094Sdes close (2, status='delete') 1291094Sdes end 1391094Sdes