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