Lines Matching defs:inf
52 real :: nan, large, inf
64 inf = 2 * large
65 if (isinf(nan) .or. isinf(large) .or. .not. isinf(inf)) call abort
66 if (isinf(-nan) .or. isinf(-large) .or. .not. isinf(-inf)) call abort
106 if (.not. isinf(max(large, inf))) call abort
107 if (isinf(min(large, inf))) call abort
108 if (.not. isinf(max(nan, large, inf))) call abort
109 if (isinf(min(nan, large, inf))) call abort
110 if (.not. isinf(max(large, nan, inf))) call abort
111 if (isinf(min(large, nan, inf))) call abort
112 if (.not. isinf(max(large, inf, nan))) call abort
113 if (isinf(min(large, inf, nan))) call abort
115 if (.not. isinf(min(-large, -inf))) call abort
116 if (isinf(max(-large, -inf))) call abort
117 if (.not. isinf(min(nan, -large, -inf))) call abort
118 if (isinf(max(nan, -large, -inf))) call abort
119 if (.not. isinf(min(-large, nan, -inf))) call abort
120 if (isinf(max(-large, nan, -inf))) call abort
121 if (.not. isinf(min(-large, -inf, nan))) call abort
122 if (isinf(max(-large, -inf, nan))) call abort