Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr41043.f90
blob: fab428b4d2029e97b6ab49117878e317da7e167d [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
{
dg
-
options
"-O2"
}
subroutine foo
implicit
none
integer
::
i
call gee_i
(
int
(
i
**
huge
(
0_8
),
kind
=
kind
(
i
)))
end
subroutine foo