Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
ishft_2.f90
blob: 6c5bd6f2b313ee965d975cd2251b79b9a62054dc [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
program ishft_2
if
(
ishftc
(
3
,
2
,
3
)
/=
5
)
STOP
1
if
(
ishftc
(
256
+
3
,
2
,
3
)
/=
256
+
5
)
STOP
2
if
(
ishftc
(
1_4
,
31
)+
1
/=
-
huge
(
1_4
)
)
STOP
3
end
program