Sign in
gnu
/
gcc
/
19220ca6aa79921cc431e41f25986e16410c7a6a
/
.
/
gcc
/
testsuite
/
g77.dg
/
pr3743-3.f
blob: 77964341506fcee2c7b9c31d7745d74d8a5ab3eb [
file
] [
log
] [
blame
]
c
Test
case
for
PR fortran
/
3743
c
Origin
:
David
Billinghurst
<
David
.
Billinghurst@riotinto
.
com
>
c
c
{
dg
-
do
link
}
c
{
dg
-
options
"-fcase-preserve -fintrin-case-lower"
}
integer i
i
=
bit_size
(
i
)
end
