#!/usr/bin/perl

# Idiom #270 Test for quiet or signaling NaN

use POSIX qw(:nan_payload nan isnan issignaling setpayload);

my @r = (nan, nan, 1.234);

setpayloadsig $r[1],'999';

foreach my $r1 ( @r ) {
    if ( isnan $r1 ) {
        printf "This is a %s NaN\n",
            issignaling($r1) ? 'signaling' : 'quiet';
    } else {
        printf "This is not a NaN: %s\n", $r1;
    }
}