1C fixed-form literal character constant with continuation line padding test 2C PR fortran/25486 3 program a 4 character(len=90) c 5 character(90) :: fil 6c A tab is between 8 and 9. 7 c = '1234567 8 &8 9' 9 write(fil,'(a)') c 10#ifdef LL_NONE 11 if(fil.ne. "12345678 9") 12 & call abort 13#else 14 if(fil.ne. 15 &"1234567 8 9" 16 &) 17 & call abort 18#endif 19 end 20 21