1! { dg-do compile }
2! { dg-options "-fsanitize=float-cast-overflow" }
3
4subroutine pr69055
5  implicit none
6  integer :: n
7  real(8) :: b
8  b = huge(1.0D0)
9  n = b
10end subroutine pr69055
11