  real :: x = 42.0
  print *, isnan(x)
  end
