gcc/testsuite/gfortran.dg/pad_source_1.f


1
2
3
4
5
6
7
8

c { dg-do run }
c { dg-skip-if "non-standard options" { *-*-* } { "-ffixed-line-length*" "-f*pad-source" } }
      character(80) a
      a = 'abc
     +def'
      if (a(:61) .ne. 'abc') stop 1
      if (a(62:) .ne. 'def') stop 2
      end