aboutsummaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/pad_source_3.f
blob: 8fbdae0d67d0bcbb8c64361c782e1745e01f38da (plain)
1
2
3
4
5
6
7
8
c { dg-do run }
c { dg-skip-if "non-standard options" { *-*-* } { "-ffixed-line-length*" } }
c { dg-options "-fno-pad-source" }
      character(80) a
      a = 'abc
     +def'
      if (a .ne. 'abcdef') stop 1
      end