Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pad_source_1.f
blob: a616bba60deb3707d5215adda35d3f64726d0627 [
file
] [
log
] [
blame
]
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