File: TestFortranIsnan.f

package info (click to toggle)
plplot 5.15.0%2Bdfsg2-6
  • links: PTS, VCS
  • area: main
  • in suites: bookworm
  • size: 31,004 kB
  • sloc: ansic: 79,703; xml: 28,583; cpp: 20,033; ada: 19,456; tcl: 12,081; f90: 11,431; ml: 7,276; java: 6,863; python: 6,792; sh: 3,274; perl: 828; lisp: 75; makefile: 61; sed: 34; fortran: 6
file content (10 lines) | stat: -rw-r--r-- 162 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
 
      program testisnan

c      external isnan

      dummy = 0.0
      if (isnan(0.0/dummy)) then
        print *,"NaN"
      endif

      end program testisnan