1! { dg-do run } 2! PR34782 tab format failure to display properly (regression vs. g77) 3 character a(6) 4 character(22) :: output 5 data a / 'a', 'b', 'c', 'd', 'e', 'f' / 6 !write(*,'(a)') "123456789012345678901234567890" 7 write(output,'(T20,A3, T1,A4, T5,A2, T7,A2, T9,A4, T17,A2)') 8 1 'a', 'b', 'c', 'd', 'e', 'f' 9 if (output .ne. " b c d e f a") STOP 1 10 end 11