1! RUN: %S/test_folding.sh %s %t %f18
2! Test folding of isnan() extension
3module m1
4  logical, parameter :: results(*) = isnan([ &
5    0., &
6    -0., &
7!WARN: division by zero
8    1./0., &
9!WARN: invalid argument on division
10    0./0., &
11    real(z'7ff80001',kind=4), &
12    real(z'fff80001',kind=4), &
13    real(z'7ffc0000',kind=4), &
14    real(z'7ffe0000',kind=4) ])
15  logical, parameter :: expected(*) = [ &
16    .false., .false., .false., .true., .true., .true., .true., .true. ]
17  logical, parameter :: test_isnan = all(results .eqv. expected)
18end module
19