Projet_SETI_RISC-V/riscv-gnu-toolchain/gcc/gcc/testsuite/gfortran.dg/pad_source_5.f

8 lines
149 B
Fortran

c { dg-do run }
c { dg-options "-ffixed-line-length-0" }
character(80) a
a = 'abc
+def'
if (a .ne. 'abcdef') stop 1
end