Mercurial > hg > CbC > CbC_gcc
comparison 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 |
comparison
equal
deleted
inserted
replaced
131:84e7813d76e9 | 145:1830386684a0 |
---|---|
1 ! Test for the ISNAN intrinsic on constants | 1 ! Test for the ISNAN intrinsic on constants |
2 ! | 2 ! |
3 ! { dg-do run } | 3 ! { dg-do run } |
4 ! { dg-options "-fno-range-check" } | 4 ! { dg-options "-fno-range-check" } |
5 ! { dg-add-options ieee } | 5 ! { dg-add-options ieee } |
6 ! { dg-skip-if "NaN not supported" { spu-*-* } } | |
7 ! | 6 ! |
8 implicit none | 7 implicit none |
9 character(len=1) :: s | 8 character(len=1) :: s |
10 write(s,'(L1)') isnan(0.) | 9 write(s,'(L1)') isnan(0.) |
11 if (s /= 'F') STOP 1 | 10 if (s /= 'F') STOP 1 |