test.f

Go to the documentation of this file.

      x = -1.0
      x = sqrt(x)
      if (isnan(x)) then
      write (6,1) x
    1 format (' x ',1p,e10.2)
      END IF
      END