File: nested_sigs.f90

package info (click to toggle)
fortran-language-server 3.2.2%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,268 kB
  • sloc: python: 9,688; f90: 1,195; fortran: 30; makefile: 28; ansic: 20
file content (10 lines) | stat: -rw-r--r-- 377 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
 
program test_nan
   use, intrinsic :: iso_fortran_env, only: sp=>real32, dp=>real64, qp=>real128
   use, intrinsic :: ieee_arithmetic, only: ieee_value, ieee_quiet_nan, ieee_is_nan
   implicit none

   complex(qp) :: nan_zp

   nan_zp = ieee_value(1.,ieee_quiet_nan)
   print '(A4,2X,F5.1,6X,L1,2X,Z32)','zp',real(nan_zp), ieee_is_nan(real(nan_zp)),nan_zp
end program test_nan