21 lines
461 B
C++
21 lines
461 B
C++
C fixed-form literal character constant with continuation line padding test
|
|
C PR fortran/25486
|
|
program a
|
|
character(len=90) c
|
|
character(90) :: fil
|
|
c A tab is between 8 and 9.
|
|
c = '1234567
|
|
&8 9'
|
|
write(fil,'(a)') c
|
|
#ifdef LL_NONE
|
|
if(fil.ne. "12345678 9")
|
|
& call abort
|
|
#else
|
|
if(fil.ne.
|
|
&"1234567 8 9"
|
|
&)
|
|
& call abort
|
|
#endif
|
|
end
|
|
|