program test
  print*, (/1.,huge(1.)/)
endprogram