flang/test/Evaluate/folding14.f90

   1 ! RUN: %python %S/test_folding.py %s %flang_fc1
   2 ! Test folding of isnan() extension
   3 module m1
   4   logical, parameter :: results(*) = isnan([ &
   5     0., &
   6     -0., &
   7 !WARN: warning: division by zero
   8     1./0., &
   9 !WARN: warning: 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)
  18 end module