Sign in
gnu
/
gcc
/
929abc7fe3ad4491ac412ca232e055618559f268
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
verify_2.f90
blob: 09f5b56f3f9915ff57a38e78727842936d1dc872 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program verify_2
character
(
len
=
3
)
s1
,
s2
s1
=
'abc'
s2
=
''
if
(
verify
(
'ab'
,
''
)
/=
1
)
STOP
1
if
(
verify
(
s1
,
s2
)
/=
1
)
STOP
2
if
(
verify
(
'abc'
,
''
,
.
true
.)
/=
3
)
STOP
3
if
(
verify
(
s1
,
s2
,
.
true
.)
/=
3
)
STOP
4
end
program verify_2