Mercurial > hg > CbC > CbC_gcc
annotate gcc/testsuite/gfortran.dg/isnan_2.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 84e7813d76e9 |
children |
rev | line source |
---|---|
111 | 1 ! Test for the ISNAN intrinsic on constants |
2 ! | |
3 ! { dg-do run } | |
4 ! { dg-options "-fno-range-check" } | |
5 ! { dg-add-options ieee } | |
6 ! | |
7 implicit none | |
8 character(len=1) :: s | |
9 write(s,'(L1)') isnan(0.) | |
131 | 10 if (s /= 'F') STOP 1 |
111 | 11 |
12 write(s,'(L1)') isnan(exp(huge(0.))) | |
131 | 13 if (s /= 'F') STOP 2 |
111 | 14 |
15 write(s,'(L1)') isnan(0./0.) | |
131 | 16 if (s /= 'T') STOP 3 |
111 | 17 end |