19 lines · plain
1! RUN: %python %S/test_folding.py %s %flang_fc12! Test folding of isnan() extension3module m14 logical, parameter :: results(*) = isnan([ &5 0., &6 -0., &7!WARN: warning: division by zero [-Wfolding-exception]8 1./0., &9!WARN: warning: invalid argument on division [-Wfolding-exception]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 module19