fix pr/45972
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr41043.f90
blobfab428b4d2029e97b6ab49117878e317da7e167d
1 ! { dg-do compile }
2 ! { dg-options "-O2" }
3 subroutine foo
4 implicit none
6 integer :: i
8 call gee_i(int(i**huge(0_8),kind=kind(i)))
10 end subroutine foo