URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
C fixed-form literal character constant with continuation line padding test
|
C fixed-form literal character constant with continuation line padding test
|
C PR fortran/25486
|
C PR fortran/25486
|
program a
|
program a
|
character(len=90) c
|
character(len=90) c
|
character(90) :: fil
|
character(90) :: fil
|
c A tab is between 8 and 9.
|
c A tab is between 8 and 9.
|
c = '1234567
|
c = '1234567
|
&8 9'
|
&8 9'
|
write(fil,'(a)') c
|
write(fil,'(a)') c
|
#ifdef LL_NONE
|
#ifdef LL_NONE
|
if(fil.ne. "12345678 9")
|
if(fil.ne. "12345678 9")
|
& call abort
|
& call abort
|
#else
|
#else
|
if(fil.ne.
|
if(fil.ne.
|
&"1234567 8 9"
|
&"1234567 8 9"
|
&)
|
&)
|
& call abort
|
& call abort
|
#endif
|
#endif
|
end
|
end
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.