Lines Matching full:parameter

6   integer, parameter :: &
12   logical, parameter :: test_bit_size_1 = bs1 == 8
13   logical, parameter :: test_bit_size_2 = bs2 == 16
14   logical, parameter :: test_bit_size_4 = bs4 == 32
15   logical, parameter :: test_bit_size_8 = bs8 == 64
16   logical, parameter :: test_bit_size_16 = bs16 == 128
18   real(2), parameter :: &
20   real(3), parameter :: &
22   real(4), parameter :: &
25   real(8), parameter :: &
28   real(10), parameter :: &
31   real(16), parameter :: &
35   logical, parameter :: test_eps2 = eps2 == zeps2 .and. eps2 == deps2
36   logical, parameter :: test_eps3 = eps3 == zeps3 .and. eps3 == deps3
37   logical, parameter :: test_eps4 = eps4 == zeps4 .and. eps4 == deps4
38   logical, parameter :: test_eps8 = eps8 == zeps8 .and. eps8 == deps8
39   logical, parameter :: test_eps10 = eps10 == zeps10 .and. eps10 == deps10
40   logical, parameter :: test_eps16 = eps16 == zeps16 .and. eps16 == deps16
42   integer(1), parameter :: &
44   integer(2), parameter :: &
46   integer(4), parameter :: &
49   integer(8), parameter :: &
52   integer(16), parameter :: &
56   logical, parameter :: test_ihuge1 = ihuge1 == zihuge1 .and. ihuge1 == dihuge1
57   logical, parameter :: test_ihuge2 = ihuge2 == zihuge2 .and. ihuge2 == dihuge2
58   logical, parameter :: test_ihuge4 = ihuge4 == zihuge4 .and. ihuge4 == dihuge4
59   logical, parameter :: test_ihuge8 = ihuge8 == zihuge8 .and. ihuge8 == dihuge8
60   logical, parameter :: test_ihuge16 = ihuge16 == zihuge16 .and. ihuge16 == dihuge16
62   real(2), parameter :: &
64   real(3), parameter :: &
67   real(4), parameter :: &
70   real(8), parameter :: &
76   real(10), parameter :: &
128   real(16), parameter :: &
180   logical, parameter :: test_ahuge2 = ahuge2 == zahuge2 .and. ahuge2 == dahuge2
181   logical, parameter :: test_ahuge3 = ahuge3 == zahuge3 .and. ahuge3 == dahuge3
182   logical, parameter :: test_ahuge4 = ahuge4 == zahuge4 .and. ahuge4 == dahuge4
183   logical, parameter :: test_ahuge8 = ahuge8 == zahuge8 .and. ahuge8 == dahuge8
184   logical, parameter :: test_ahuge10 = ahuge10 == zahuge10 .and. ahuge10 == dahuge10
185   logical, parameter :: test_ahuge16 = ahuge16 == zahuge16 .and. ahuge16 == dahuge16
187   real(2), parameter :: tiny2 = tiny(0._2), ztiny2 = real(z'0400', kind=2)
188   real(3), parameter :: tiny3 = tiny(0._3), ztiny3 = real(z'0080', kind=3)
189   real(4), parameter :: tiny4 = tiny(0._4), ztiny4 = real(z'00800000', kind=4)
190   real(8), parameter :: tiny8 = tiny(0._8), ztiny8 = real(z'0010000000000000', kind=8)
191   real(10), parameter :: tiny10 = tiny(0._10), ztiny10 = real(z'00018000000000000000', kind=10)
192 …real(16), parameter :: tiny16 = tiny(0._16), ztiny16 = real(z'00010000000000000000000000000000', k…
193   logical, parameter :: test_tiny2 = tiny2 == ztiny2
194   logical, parameter :: test_tiny3 = tiny3 == ztiny3
195   logical, parameter :: test_tiny4 = tiny4 == ztiny4
196   logical, parameter :: test_tiny8 = tiny8 == ztiny8
197   logical, parameter :: test_tiny10 = tiny10 == ztiny10
198   logical, parameter :: test_tiny16 = tiny16 == ztiny16
200   integer, parameter :: &
207   logical, parameter :: test_max2 = max2 == 15
208   logical, parameter :: test_max3 = max3 == 127
209   logical, parameter :: test_max4 = max4 == 127
210   logical, parameter :: test_max8 = max8 == 1023
211   logical, parameter :: test_max10 = max10 == 16383
212   logical, parameter :: test_max16 = max16 == 16383
214   integer, parameter :: &
221   logical, parameter :: test_min2 = min2 == -14
222   logical, parameter :: test_min3 = min3 == -126
223   logical, parameter :: test_min4 = min4 == -126
224   logical, parameter :: test_min8 = min8 == -1022
225   logical, parameter :: test_min10 = min10 == -16382
226   logical, parameter :: test_min16 = min16 == -16382
228   integer, parameter :: &
234   logical, parameter :: test_irange1 = irange1 == 2
235   logical, parameter :: test_irange2 = irange2 == 4
236   logical, parameter :: test_irange4 = irange4 == 9
237   logical, parameter :: test_irange8 = irange8 == 18
238   logical, parameter :: test_irange16 = irange16 == 38
240   integer, parameter :: &
247   logical, parameter :: test_arange2 = arange2 == 4 .and. zrange2 == 4
248   logical, parameter :: test_arange3 = arange3 == 37 .and. zrange3 == 37
249   logical, parameter :: test_zrange4 = arange4 == 37 .and. zrange4 == 37
250   logical, parameter :: test_zrange8 = arange8 == 307 .and. zrange8 == 307
251   logical, parameter :: test_zrange10 = arange10 == 4931 .and. zrange10 == 4931
252   logical, parameter :: test_zrange16 = arange16 == 4931 .and. zrange16 == 4931