gcc/testsuite/gfortran.dg/pad_source_2.f


1
2
3
4
5
6
7
8
9

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