| ! RUN: %S/test_folding.sh %s %t %f18 |
| ! Test folding of isnan() extension |
| module m1 |
| logical, parameter :: results(*) = isnan([ & |
| 0., & |
| -0., & |
| !WARN: division by zero |
| 1./0., & |
| !WARN: invalid argument on division |
| 0./0., & |
| real(z'7ff80001',kind=4), & |
| real(z'fff80001',kind=4), & |
| real(z'7ffc0000',kind=4), & |
| real(z'7ffe0000',kind=4) ]) |
| logical, parameter :: expected(*) = [ & |
| .false., .false., .false., .true., .true., .true., .true., .true. ] |
| logical, parameter :: test_isnan = all(results .eqv. expected) |
| end module |
