Sign in
llvm
/
llvm-archive
/
261104aacb9ea48cf3a0dc7bfb461760b894944b
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
ishft_2.f90
blob: 96acf0e3b9b7186b3df971d555de1c0e2de452a4 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program ishft_2
if
(
ishftc
(
3
,
2
,
3
)
/=
5
)
call abort
()
if
(
ishftc
(
256
+
3
,
2
,
3
)
/=
256
+
5
)
call abort
()
if
(
ishftc
(
1_4
,
31
)+
1
/=
-
huge
(
1_4
)
)
call abort
()
end
program