Sign in
gnu
/
gcc
/
1ba7adabf29eb671e418692fad076ea6edd08e3d
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
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