You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
19 lines
555 B
19 lines
555 B
! 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
|