blob: feb3367934b00559213637cfa24f88d9c52b403e (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
! Program to test DPROD intrinsic
program intrinsic_dprod
implicit none
real r, s, t
double precision dp
! 6d60 doesn't fit in a 4-byte real
r = 2e30
s = 4e30
dp = dprod (r, s)
if ((dp .gt. 8.001d60) .or. (dp .lt. 7.999d60)) call abort
end program
|