PR tree-optimization/86415 - strlen() not folded for substrings within constant arrays
[official-gcc.git] / gcc / testsuite / gfortran.dg / literal_character_constant_1.inc
blobbd5a431996d0fdee66f167ac5a6be4e0573420e1
1 C     fixed-form literal character constant with continuation line padding test
2 C     PR fortran/25486
3       program a
4       character(len=90) c
5       character(90) :: fil
6 c 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      &  STOP 1
13 #else
14       if(fil.ne.
15      &"1234567                                                      8   9"
16      &)
17      &  STOP 2
18 #endif
19       end