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