Sign in
gnu
/
gcc
/
refs/tags/releases/gcc-3.3.6
/
.
/
gcc
/
testsuite
/
g77.dg
/
ftypeless-boz.f
blob: b72cb17754611ed8c83a81e7e7a1bcdc7a191e1f [
file
] [
log
] [
blame
]
C
Test
compiler flags
:
-
ftypeless
-
boz
C
Origin
:
David
Billinghurst
<
David
.
Billinghurst@riotinto
.
com
>
C
C
{
dg
-
do
run
}
C
{
dg
-
options
"-ftypeless-boz"
}
equivalence
(
i
,
r
)
r
=
Z
'ABCD1234'
j
=
Z
'ABCD1234'
if
(
j
.
ne
.
i
)
call abort
end
