Sign in
gnu
/
gcc
/
57ea00136418991e847e46a6946a81a1df70c9a4
/
.
/
gcc
/
testsuite
/
g77.dg
/
fno-typeless-boz.f
blob: 3faa550cce8b1ca8bd0f7d8268271a70aee2a32b [
file
] [
log
] [
blame
]
C
Test
compiler flags
:
-
fno
-
typeless
-
boz
C
Origin
:
David
Billinghurst
<
David
.
Billinghurst@riotinto
.
com
>
C
C
{
dg
-
do
run
}
C
{
dg
-
options
"-fno-typeless-boz"
}
equivalence
(
i
,
r
)
r
=
Z
'ABCD1234'
j
=
Z
'ABCD1234'
if
(
j
.
eq
.
i
)
call abort
end