2 ! { dg-options "-fno-range-check" }
7 module procedure check_i8
8 module procedure check_i4
9 module procedure check_r8
10 module procedure check_r4
11 module procedure check_c8
12 module procedure check_c4
17 subroutine check_i8 (a, b)
18 integer(kind=8), intent(in) :: a, b
19 if (a /= b) call abort()
20 end subroutine check_i8
22 subroutine check_i4 (a, b)
23 integer(kind=4), intent(in) :: a, b
24 if (a /= b) call abort()
25 end subroutine check_i4
27 subroutine check_r8 (a, b)
28 real(kind=8), intent(in) :: a, b
29 if (a /= b) call abort()
30 end subroutine check_r8
32 subroutine check_r4 (a, b)
33 real(kind=4), intent(in) :: a, b
34 if (a /= b) call abort()
35 end subroutine check_r4
37 subroutine check_c8 (a, b)
38 complex(kind=8), intent(in) :: a, b
39 if (a /= b) call abort()
40 end subroutine check_c8
42 subroutine check_c4 (a, b)
43 complex(kind=4), intent(in) :: a, b
44 if (a /= b) call abort()
45 end subroutine check_c4
60 #define TEST(base,exp,var) var = base; call check((var)**(exp),(base)**(exp))
62 !!!!! INTEGER BASE !!!!!
68 TEST(17_8,int(huge(0_4),kind=8)+1,i8)
72 TEST(0.0,-huge(0)-1,r4)
74 TEST(nearest(1.0,-1.0),-huge(0),r4)
78 ! { dg-final { cleanup-modules "mod_check" } }