blob: bd5a431996d0fdee66f167ac5a6be4e0573420e1 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
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")
& STOP 1
#else
if(fil.ne.
&"1234567 8 9"
&)
& STOP 2
#endif
end
|