Sign in
gnu
/
gcc
/
13cf4f09328f335d566c64bb94b7ed69aa8058de
/
.
/
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