ParaMonte Fortran 2.0.0
Parallel Monte Carlo and Machine Learning Library
See the latest version documentation.
test_pm_io.F90
Go to the documentation of this file.
1!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
2!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
3!!!! !!!!
4!!!! ParaMonte: Parallel Monte Carlo and Machine Learning Library. !!!!
5!!!! !!!!
6!!!! Copyright (C) 2012-present, The Computational Data Science Lab !!!!
7!!!! !!!!
8!!!! This file is part of the ParaMonte library. !!!!
9!!!! !!!!
10!!!! LICENSE !!!!
11!!!! !!!!
12!!!! https://github.com/cdslaborg/paramonte/blob/main/LICENSE.md !!!!
13!!!! !!!!
14!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
15!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
16
19
20module test_pm_io
21
22 use pm_io
23 use pm_test, only: test_type, LK
24 implicit none
25
26 private
27 public :: setTest
28 type(test_type) :: test
29
30!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
31
32contains
33
34!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
35
36 subroutine setTest()
37
38 implicit none
39
40 test = test_type(MODULE_NAME)
41 call test%run(test_getRecl_1, SK_"test_getRecl_1")
42 call test%run(test_getRecl_2, SK_"test_getRecl_2")
43 call test%run(test_getRecl_3, SK_"test_getRecl_3")
44 call test%run(test_getRecl_4, SK_"test_getRecl_4")
45 call test%run(test_getForm_1, SK_"test_getForm_1")
46 call test%run(test_getForm_2, SK_"test_getForm_2")
47 call test%run(test_getForm_3, SK_"test_getForm_3")
48 call test%run(test_getForm_4, SK_"test_getForm_4")
49 call test%run(test_getName_1, SK_"test_getName_1")
50 call test%run(test_getName_2, SK_"test_getName_2")
51 call test%run(test_getName_3, SK_"test_getName_3")
52 call test%run(test_getName_4, SK_"test_getName_4")
53 call test%run(test_getBlank_1, SK_"test_getBlank_1")
54 call test%run(test_getBlank_2, SK_"test_getBlank_2")
55 call test%run(test_getBlank_3, SK_"test_getBlank_3")
56 call test%run(test_getBlank_4, SK_"test_getBlank_4")
57 call test%run(test_getDelim_1, SK_"test_getDelim_1")
58 call test%run(test_getDelim_2, SK_"test_getDelim_2")
59 call test%run(test_getDelim_3, SK_"test_getDelim_3")
60 call test%run(test_getDelim_4, SK_"test_getDelim_4")
61 call test%run(test_getAction_1, SK_"test_getAction_1")
62 call test%run(test_getAction_2, SK_"test_getAction_2")
63 call test%run(test_getAction_3, SK_"test_getAction_3")
64 call test%run(test_getAction_4, SK_"test_getAction_4")
65 call test%run(test_getAccess_1, SK_"test_getAccess_1")
66 call test%run(test_getAccess_2, SK_"test_getAccess_2")
67 call test%run(test_getAccess_3, SK_"test_getAccess_3")
68 call test%run(test_getAccess_4, SK_"test_getAccess_4")
69 call test%run(test_getNumber_1, SK_"test_getNumber_1")
70 call test%run(test_getNumber_2, SK_"test_getNumber_2")
71 call test%run(test_getNumber_3, SK_"test_getNumber_3")
72 call test%run(test_getNumber_4, SK_"test_getNumber_4")
73 call test%run(test_getPosition_1, SK_"test_getPosition_1")
74 call test%run(test_getPosition_2, SK_"test_getPosition_2")
75 call test%run(test_getPosition_3, SK_"test_getPosition_3")
76 call test%run(test_getPosition_4, SK_"test_getPosition_4")
77 call test%run(test_constructPad_1, SK_"test_constructPad_1")
78 call test%run(test_constructPad_2, SK_"test_constructPad_2")
79 call test%run(test_constructPad_3, SK_"test_constructPad_3")
80 call test%run(test_constructPad_4, SK_"test_constructPad_4")
81 call test%run(test_constructPad_5, SK_"test_constructPad_5")
82 call test%run(test_constructFile_1, SK_"test_constructFile_1")
83 call test%run(test_constructFile_2, SK_"test_constructFile_2")
84 call test%run(test_constructFile_3, SK_"test_constructFile_3")
85 call test%run(test_constructForm_1, SK_"test_constructForm_1")
86 call test%run(test_constructForm_2, SK_"test_constructForm_2")
87 call test%run(test_constructForm_3, SK_"test_constructForm_3")
88 call test%run(test_constructForm_4, SK_"test_constructForm_4")
89 call test%run(test_constructForm_5, SK_"test_constructForm_5")
90 call test%run(test_constructSign_1, SK_"test_constructSign_1")
91 call test%run(test_constructSign_2, SK_"test_constructSign_2")
92 call test%run(test_constructSign_3, SK_"test_constructSign_3")
93 call test%run(test_constructSign_4, SK_"test_constructSign_4")
94 call test%run(test_constructSign_5, SK_"test_constructSign_5")
95 call test%run(test_constructSign_6, SK_"test_constructSign_6")
96 call test%run(test_getOpenStatus_1, SK_"test_getOpenStatus_1")
97 call test%run(test_getOpenStatus_2, SK_"test_getOpenStatus_2")
98 call test%run(test_getOpenStatus_3, SK_"test_getOpenStatus_3")
99 call test%run(test_getOpenStatus_4, SK_"test_getOpenStatus_4")
100 call test%run(test_isExtant_1, SK_"test_isExtant_1")
101 call test%run(test_isExtant_2, SK_"test_isExtant_2")
102 call test%run(test_isExtant_3, SK_"test_isExtant_3")
103 call test%run(test_constructBlank_1, SK_"test_constructBlank_1")
104 call test%run(test_constructBlank_2, SK_"test_constructBlank_2")
105 call test%run(test_constructBlank_3, SK_"test_constructBlank_3")
106 call test%run(test_constructBlank_4, SK_"test_constructBlank_4")
107 call test%run(test_constructBlank_5, SK_"test_constructBlank_5")
108 call test%run(test_constructDelim_1, SK_"test_constructDelim_1")
109 call test%run(test_constructDelim_2, SK_"test_constructDelim_2")
110 call test%run(test_constructDelim_3, SK_"test_constructDelim_3")
111 call test%run(test_constructDelim_4, SK_"test_constructDelim_4")
112 call test%run(test_constructDelim_5, SK_"test_constructDelim_5")
113 call test%run(test_constructDelim_6, SK_"test_constructDelim_6")
114 call test%run(test_constructRound_1, SK_"test_constructRound_1")
115 call test%run(test_constructRound_2, SK_"test_constructRound_2")
116 call test%run(test_constructRound_3, SK_"test_constructRound_3")
117 call test%run(test_constructRound_4, SK_"test_constructRound_4")
118 call test%run(test_constructRound_5, SK_"test_constructRound_5")
119 call test%run(test_constructRound_6, SK_"test_constructRound_6")
120 call test%run(test_constructRound_7, SK_"test_constructRound_7")
121 call test%run(test_constructRound_8, SK_"test_constructRound_8")
122 call test%run(test_constructRound_9, SK_"test_constructRound_9")
123 call test%run(test_constructAction_1, SK_"test_constructAction_1")
124 call test%run(test_constructAction_2, SK_"test_constructAction_2")
125 call test%run(test_constructAction_3, SK_"test_constructAction_3")
126 call test%run(test_constructAction_4, SK_"test_constructAction_4")
127 call test%run(test_constructAction_5, SK_"test_constructAction_5")
128 call test%run(test_constructAccess_1, SK_"test_constructAccess_1")
129 call test%run(test_constructAccess_2, SK_"test_constructAccess_2")
130 call test%run(test_constructAccess_3, SK_"test_constructAccess_3")
131 call test%run(test_constructAccess_4, SK_"test_constructAccess_4")
132 call test%run(test_constructAccess_5, SK_"test_constructAccess_5")
133 call test%run(test_constructPosition_1, SK_"test_constructPosition_1")
134 call test%run(test_constructPosition_2, SK_"test_constructPosition_2")
135 call test%run(test_constructPosition_3, SK_"test_constructPosition_3")
136 call test%run(test_constructPosition_4, SK_"test_constructPosition_4")
137 call test%run(test_constructPosition_5, SK_"test_constructPosition_5")
138 call test%run(test_constructPosition_6, SK_"test_constructPosition_6")
139 call test%run(test_isCloseErr_1, SK_"test_isCloseErr_1")
140 call test%run(test_isCloseErr_2, SK_"test_isCloseErr_2")
141 call test%run(test_isCloseErr_3, SK_"test_isCloseErr_3")
142 call test%run(test_getWriteErr_1, SK_"test_getWriteErr_1")
143 call test%run(test_getWriteErr_2, SK_"test_getWriteErr_2")
144 call test%run(test_getWriteErr_3, SK_"test_getWriteErr_3")
145 call test%run(test_isOpenErr_1, SK_"test_isOpenErr_1")
146 call test%run(test_isOpenErr_2, SK_"test_isOpenErr_2")
147 call test%run(test_isOpenErr_3, SK_"test_isOpenErr_3")
148 call test%run(test_getReadErr_1, SK_"test_getReadErr_1")
149 call test%run(test_getReadErr_2, SK_"test_getReadErr_2")
150 call test%run(test_getReadErr_3, SK_"test_getReadErr_3")
151 call test%run(test_getReadErr_4, SK_"test_getReadErr_4")
152 call test%run(test_getReadErr_5, SK_"test_getReadErr_5")
153 call test%run(test_getReadErr_6, SK_"test_getReadErr_6")
154 call test%run(test_isInqErr_1, SK_"test_isInqErr_1")
155 call test%run(test_isInqErr_2, SK_"test_isInqErr_2")
156 call test%run(test_isInqErr_3, SK_"test_isInqErr_3")
157 call test%summarize()
158
159 end subroutine setTest
160
161!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
162
163 function test_constructFile_1() result(assertion)
164
165 implicit none
166 logical(LK) :: assertion
167 type(file_type) :: file
168
169 file = file_type()
170 assertion = .not. file%err%occurred
171 call test%assert(assertion, desc = "No error should occur upon `file` construction.")
172
173 assertion = assertion .and. file%path%original == ""
174 call test%assert(assertion)
175 assertion = assertion .and. file%path%modified == ""
176 call test%assert(assertion)
177 assertion = assertion .and. file%path%dir == ""
178 call test%assert(assertion)
179 assertion = assertion .and. file%path%name == ""
180 call test%assert(assertion)
181 assertion = assertion .and. file%path%ext == ""
182 call test%assert(assertion)
183 assertion = assertion .and. file%unit == -2147483647
184 call test%assert(assertion)
185 assertion = assertion .and. file%number == -2147483647
186 call test%assert(assertion)
187 assertion = assertion .and. file%recl == -2147483647
188 call test%assert(assertion)
189 assertion = assertion .and. file%exists .eqv. .false._LK
190 call test%assert(assertion)
191 assertion = assertion .and. file%isOpen .eqv. .false._LK
192 call test%assert(assertion)
193 assertion = assertion .and. file%isNamed .eqv. .false._LK
194 call test%assert(assertion)
195 assertion = assertion .and. file%isNumbered .eqv. .false._LK
196 call test%assert(assertion)
197 assertion = assertion .and. file%status == "unknown"
198 call test%assert(assertion)
199 assertion = assertion .and. file%asynchronous == "no"
200 call test%assert(assertion)
201 assertion = assertion .and. file%format == ""
202 call test%assert(assertion)
203 assertion = assertion .and. file%nameByCompiler == ""
204 call test%assert(assertion)
205 assertion = assertion .and. file%action%val == "readwrite"
206 call test%assert(assertion)
207 assertion = assertion .and. file%access%val == "sequential"
208 call test%assert(assertion)
209 assertion = assertion .and. file%form%val == "formatted"
210 call test%assert(assertion)
211 assertion = assertion .and. file%blank%val == "null"
212 call test%assert(assertion)
213 assertion = assertion .and. file%position%val == "asis"
214 call test%assert(assertion)
215 assertion = assertion .and. file%delim%val == "none"
216 call test%assert(assertion)
217 assertion = assertion .and. file%pad%val == "yes"
218 call test%assert(assertion)
219 assertion = assertion .and. file%round%val == "processor_defined"
220 call test%assert(assertion)
221 assertion = assertion .and. file%sign%val == "processor_defined"
222 call test%assert(assertion)
223 assertion = assertion .and. file%err%occurred .eqv. .false._LK
224 call test%assert(assertion)
225 assertion = assertion .and. file%err%msg == ""
226 call test%assert(assertion)
227
228 if (test%traceable .and. .not. assertion) then
229 ! LCOV_EXCL_START
230 write(test%disp%unit,"(*(g0))")
231 write(test%disp%unit,"(*(g0))") "file%path%original : ", file%path%original
232 write(test%disp%unit,"(*(g0))") "file%path%modified : ", file%path%modified
233 write(test%disp%unit,"(*(g0))") "file%path%dir : ", file%path%dir
234 write(test%disp%unit,"(*(g0))") "file%path%name : ", file%path%name
235 write(test%disp%unit,"(*(g0))") "file%path%ext : ", file%path%ext
236 write(test%disp%unit,"(*(g0))") "file%path%sep : ", file%path%sep
237 write(test%disp%unit,"(*(g0))") "file%unit : ", file%unit
238 write(test%disp%unit,"(*(g0))") "file%number : ", file%number
239 write(test%disp%unit,"(*(g0))") "file%recl : ", file%recl
240 write(test%disp%unit,"(*(g0))") "file%exists : ", file%exists
241 write(test%disp%unit,"(*(g0))") "file%isOpen : ", file%isOpen
242 write(test%disp%unit,"(*(g0))") "file%isNamed : ", file%isNamed
243 write(test%disp%unit,"(*(g0))") "file%isNumbered : ", file%isNumbered
244 write(test%disp%unit,"(*(g0))") "file%status : ", file%status
245 write(test%disp%unit,"(*(g0))") "file%asynchronous : ", file%asynchronous
246 write(test%disp%unit,"(*(g0))") "file%format : ", file%format
247 write(test%disp%unit,"(*(g0))") "file%nameByCompiler : ", file%nameByCompiler
248 write(test%disp%unit,"(*(g0))") "file%action%val : ", file%action%val
249 write(test%disp%unit,"(*(g0))") "file%access%val : ", file%access%val
250 write(test%disp%unit,"(*(g0))") "file%form%val : ", file%form%val
251 write(test%disp%unit,"(*(g0))") "file%blank%val : ", file%blank%val
252 write(test%disp%unit,"(*(g0))") "file%position%val : ", file%position%val
253 write(test%disp%unit,"(*(g0))") "file%delim%val : ", file%delim%val
254 write(test%disp%unit,"(*(g0))") "file%pad%val : ", file%pad%val
255 write(test%disp%unit,"(*(g0))") "file%round%val : ", file%round%val
256 write(test%disp%unit,"(*(g0))") "file%sign%val : ", file%sign%val
257 write(test%disp%unit,"(*(g0))")
258 end if
259 ! LCOV_EXCL_STOP
260
261 end function test_constructFile_1
262
263!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
264
265 function test_constructFile_2() result(assertion)
266
267 implicit none
268 logical(LK) :: assertion
269 type(file_type) :: file
270
271 file = file_type( unit=13 &
272 , recl=9999 &
273 , path="./test_File_pmod/\test_File_pmod\-" &
274 , status="NEw" &
275 , position="APPEND" &
276 , access="direCt" &
277 , form="unformatted" &
278 , action="rEAd" &
279 , delim="quotE" &
280 , round="uP" &
281 , sign="undefined" &
282 , pad = "nO" &
283 , blank = "undefined" &
284 , format = "(A)" &
285 , asynchronous = "Yes" &
286 )
287
288 assertion = .not. file%err%occurred
289 call test%assert(assertion)
290
291 assertion = assertion .and. file%path%original == "./test_File_pmod/\test_File_pmod\-"
292
293 if (file%path%sep=="/") then
294 assertion = assertion .and. file%path%modified == "./test_File_pmod/\test_File_pmod\-"
295 call test%assert(assertion)
296 assertion = assertion .and. file%path%dir == "./test_File_pmod/"
297 call test%assert(assertion)
298 assertion = assertion .and. file%path%name == "\test_File_pmod\-"
299 call test%assert(assertion)
300 assertion = assertion .and. file%path%ext == ""
301 call test%assert(assertion)
302#if WINDOWS_ENABLED
303 else
304 assertion = assertion .and. file%path%modified == ".\test_File_pmod\\test_File_pmod\-"
305 call test%assert(assertion)
306 assertion = assertion .and. file%path%dir == ".\test_File_pmod\\test_File_pmod\"
307 call test%assert(assertion)
308 assertion = assertion .and. file%path%name == "-"
309 call test%assert(assertion)
310 assertion = assertion .and. file%path%ext == ""
311 call test%assert(assertion)
312#endif
313 end if
314 assertion = assertion .and. file%unit == 13
315 call test%assert(assertion)
316 assertion = assertion .and. file%number == -2147483647
317 call test%assert(assertion)
318 assertion = assertion .and. file%recl == 9999
319 call test%assert(assertion)
320 assertion = assertion .and. file%exists .eqv. .false._LK
321 call test%assert(assertion)
322 assertion = assertion .and. file%isOpen .eqv. .false._LK
323 call test%assert(assertion)
324 assertion = assertion .and. file%isNamed .eqv. .false._LK
325 call test%assert(assertion)
326 assertion = assertion .and. file%isNumbered .eqv. .false._LK
327 call test%assert(assertion)
328 assertion = assertion .and. file%status == "new"
329 call test%assert(assertion)
330 assertion = assertion .and. file%asynchronous == "yes"
331 call test%assert(assertion)
332 assertion = assertion .and. file%format == "(A)"
333 call test%assert(assertion)
334 assertion = assertion .and. file%nameByCompiler == ""
335 call test%assert(assertion)
336 assertion = assertion .and. file%action%val == "read"
337 call test%assert(assertion)
338 assertion = assertion .and. file%access%val == "direct"
339 call test%assert(assertion)
340 assertion = assertion .and. file%form%val == "unformatted"
341 call test%assert(assertion)
342 assertion = assertion .and. file%blank%val == "undefined"
343 call test%assert(assertion)
344 assertion = assertion .and. file%position%val == "append"
345 call test%assert(assertion)
346 assertion = assertion .and. file%delim%val == "quote"
347 call test%assert(assertion)
348 assertion = assertion .and. file%pad%val == "no"
349 call test%assert(assertion)
350 assertion = assertion .and. file%round%val == "up"
351 call test%assert(assertion)
352 assertion = assertion .and. file%sign%val == "undefined"
353 call test%assert(assertion)
354 assertion = assertion .and. file%err%occurred .eqv. .false._LK
355 call test%assert(assertion)
356 assertion = assertion .and. file%err%msg == ""
357 call test%assert(assertion)
358
359 if (test%traceable .and. .not. assertion) then
360 ! LCOV_EXCL_START
361 write(test%disp%unit,"(*(g0))")
362 write(test%disp%unit,"(*(g0))") "file%path%original : ", file%path%original
363 write(test%disp%unit,"(*(g0))") "file%path%modified : ", file%path%modified
364 write(test%disp%unit,"(*(g0))") "file%path%dir : ", file%path%dir
365 write(test%disp%unit,"(*(g0))") "file%path%name : ", file%path%name
366 write(test%disp%unit,"(*(g0))") "file%path%ext : ", file%path%ext
367 write(test%disp%unit,"(*(g0))") "file%path%sep: ", file%path%sep
368 write(test%disp%unit,"(*(g0))") "file%unit : ", file%unit
369 write(test%disp%unit,"(*(g0))") "file%number : ", file%number
370 write(test%disp%unit,"(*(g0))") "file%recl : ", file%recl
371 write(test%disp%unit,"(*(g0))") "file%exists : ", file%exists
372 write(test%disp%unit,"(*(g0))") "file%isOpen : ", file%isOpen
373 write(test%disp%unit,"(*(g0))") "file%isNamed : ", file%isNamed
374 write(test%disp%unit,"(*(g0))") "file%isNumbered : ", file%isNumbered
375 write(test%disp%unit,"(*(g0))") "file%status : ", file%status
376 write(test%disp%unit,"(*(g0))") "file%asynchronous : ", file%asynchronous
377 write(test%disp%unit,"(*(g0))") "file%format : ", file%format
378 write(test%disp%unit,"(*(g0))") "file%nameByCompiler : ", file%nameByCompiler
379 write(test%disp%unit,"(*(g0))") "file%action%val : ", file%action%val
380 write(test%disp%unit,"(*(g0))") "file%access%val : ", file%access%val
381 write(test%disp%unit,"(*(g0))") "file%form%val : ", file%form%val
382 write(test%disp%unit,"(*(g0))") "file%blank%val : ", file%blank%val
383 write(test%disp%unit,"(*(g0))") "file%position%val : ", file%position%val
384 write(test%disp%unit,"(*(g0))") "file%delim%val : ", file%delim%val
385 write(test%disp%unit,"(*(g0))") "file%pad%val : ", file%pad%val
386 write(test%disp%unit,"(*(g0))") "file%round%val : ", file%round%val
387 write(test%disp%unit,"(*(g0))") "file%sign%val : ", file%sign%val
388 write(test%disp%unit,"(*(g0))") "file%err%occurred : ", file%err%occurred
389 write(test%disp%unit,"(*(g0))") "file%err%msg : ", file%err%msg
390 write(test%disp%unit,"(*(g0))")
391 end if
392 ! LCOV_EXCL_STOP
393
394 end function test_constructFile_2
395
396!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
397
400 function test_constructFile_3() result(assertion)
401
402 implicit none
403 logical(LK) :: assertion
404 type(file_type) :: file
405
406 file = file_type( unit=13 &
407 , recl=9999 &
408 , path="./test_File_pmod/\test_File_pmod\-" &
409 , status="NEw" &
410 , position="APPEND" &
411 , access="direCt" &
412 , action="rEAd" &
413 , delim="quotE" &
414 , round="uP" &
415 , sign="undefined" &
416 , pad = "nO" &
417 , blank = "undefined" &
418 , format = "(A)" &
419 , asynchronous = "Yes" &
420 )
421
422 assertion = .not. file%err%occurred
423 call test%assert(assertion)
424
425 assertion = assertion .and. file%path%original == "./test_File_pmod/\test_File_pmod\-"
426 call test%assert(assertion)
427
428 if (file%path%sep=="/") then
429 assertion = assertion .and. file%path%modified == "./test_File_pmod/\test_File_pmod\-"
430 call test%assert(assertion)
431 assertion = assertion .and. file%path%dir == "./test_File_pmod/"
432 call test%assert(assertion)
433 assertion = assertion .and. file%path%name == "\test_File_pmod\-"
434 call test%assert(assertion)
435 assertion = assertion .and. file%path%ext == ""
436 call test%assert(assertion)
437#if WINDOWS_ENABLED
438 else
439 assertion = assertion .and. file%path%modified == ".\test_File_pmod\\test_File_pmod\-"
440 call test%assert(assertion)
441 assertion = assertion .and. file%path%dir == ".\test_File_pmod\\test_File_pmod\"
442 call test%assert(assertion)
443 assertion = assertion .and. file%path%name == "-"
444 call test%assert(assertion)
445 assertion = assertion .and. file%path%ext == ""
446 call test%assert(assertion)
447#endif
448 end if
449
450 assertion = assertion .and. file%unit == 13
451 call test%assert(assertion)
452 assertion = assertion .and. file%number == -2147483647
453 call test%assert(assertion)
454 assertion = assertion .and. file%recl == 9999
455 call test%assert(assertion)
456 assertion = assertion .and. file%exists .eqv. .false._LK
457 call test%assert(assertion)
458 assertion = assertion .and. file%isOpen .eqv. .false._LK
459 call test%assert(assertion)
460 assertion = assertion .and. file%isNamed .eqv. .false._LK
461 call test%assert(assertion)
462 assertion = assertion .and. file%isNumbered .eqv. .false._LK
463 call test%assert(assertion)
464 assertion = assertion .and. file%status == "new"
465 call test%assert(assertion)
466 assertion = assertion .and. file%asynchronous == "yes"
467 call test%assert(assertion)
468 assertion = assertion .and. file%format == "(A)"
469 call test%assert(assertion)
470 assertion = assertion .and. file%nameByCompiler == ""
471 call test%assert(assertion)
472 assertion = assertion .and. file%action%val == "read"
473 call test%assert(assertion)
474 assertion = assertion .and. file%access%val == "direct"
475 call test%assert(assertion)
476 assertion = assertion .and. file%form%val == "unformatted"
477 call test%assert(assertion)
478 assertion = assertion .and. file%blank%val == "undefined"
479 call test%assert(assertion)
480 assertion = assertion .and. file%position%val == "append"
481 call test%assert(assertion)
482 assertion = assertion .and. file%delim%val == "quote"
483 call test%assert(assertion)
484 assertion = assertion .and. file%pad%val == "no"
485 call test%assert(assertion)
486 assertion = assertion .and. file%round%val == "up"
487 call test%assert(assertion)
488 assertion = assertion .and. file%sign%val == "undefined"
489 call test%assert(assertion)
490 assertion = assertion .and. file%err%occurred .eqv. .false._LK
491 call test%assert(assertion)
492 assertion = assertion .and. file%err%msg == ""
493 call test%assert(assertion)
494
495 if (test%traceable .and. .not. assertion) then
496 ! LCOV_EXCL_START
497 write(test%disp%unit,"(*(g0))")
498 write(test%disp%unit,"(*(g0))") "file%path%original : ", file%path%original
499 write(test%disp%unit,"(*(g0))") "file%path%modified : ", file%path%modified
500 write(test%disp%unit,"(*(g0))") "file%path%dir : ", file%path%dir
501 write(test%disp%unit,"(*(g0))") "file%path%name : ", file%path%name
502 write(test%disp%unit,"(*(g0))") "file%path%ext : ", file%path%ext
503 write(test%disp%unit,"(*(g0))") "file%path%sep: ", file%path%sep
504 write(test%disp%unit,"(*(g0))") "file%unit : ", file%unit
505 write(test%disp%unit,"(*(g0))") "file%number : ", file%number
506 write(test%disp%unit,"(*(g0))") "file%recl : ", file%recl
507 write(test%disp%unit,"(*(g0))") "file%exists : ", file%exists
508 write(test%disp%unit,"(*(g0))") "file%isOpen : ", file%isOpen
509 write(test%disp%unit,"(*(g0))") "file%isNamed : ", file%isNamed
510 write(test%disp%unit,"(*(g0))") "file%isNumbered : ", file%isNumbered
511 write(test%disp%unit,"(*(g0))") "file%status : ", file%status
512 write(test%disp%unit,"(*(g0))") "file%asynchronous : ", file%asynchronous
513 write(test%disp%unit,"(*(g0))") "file%format : ", file%format
514 write(test%disp%unit,"(*(g0))") "file%nameByCompiler : ", file%nameByCompiler
515 write(test%disp%unit,"(*(g0))") "file%action%val : ", file%action%val
516 write(test%disp%unit,"(*(g0))") "file%access%val : ", file%access%val
517 write(test%disp%unit,"(*(g0))") "file%form%val : ", file%form%val
518 write(test%disp%unit,"(*(g0))") "file%blank%val : ", file%blank%val
519 write(test%disp%unit,"(*(g0))") "file%position%val : ", file%position%val
520 write(test%disp%unit,"(*(g0))") "file%delim%val : ", file%delim%val
521 write(test%disp%unit,"(*(g0))") "file%pad%val : ", file%pad%val
522 write(test%disp%unit,"(*(g0))") "file%round%val : ", file%round%val
523 write(test%disp%unit,"(*(g0))") "file%sign%val : ", file%sign%val
524 write(test%disp%unit,"(*(g0))") "file%err%occurred : ", file%err%occurred
525 write(test%disp%unit,"(*(g0))") "file%err%msg : ", file%err%msg
526 write(test%disp%unit,"(*(g0))")
527 end if
528 ! LCOV_EXCL_STOP
529
530 end function test_constructFile_3
531
532!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
533
534 function test_constructPad_1() result(assertion)
535 implicit none
536 logical(LK) :: assertion
537 type(Pad_type) :: pad
538 pad = Pad_type()
539 assertion = .not. pad%err%occurred
540 call test%assert(assertion)
541 assertion = assertion .and. pad%val == "yes"
542 call test%assert(assertion)
543 assertion = assertion .and. pad%isPadded .eqv. .true._LK
544 call test%assert(assertion)
545 assertion = assertion .and. pad%isNotPadded .eqv. .false._LK
546 call test%assert(assertion)
547 assertion = assertion .and. pad%isUndefined .eqv. .false._LK
548 end function test_constructPad_1
549
550!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
551
552 ! Testing `Pad_type( value = 'undefined' )`
553 function test_constructPad_2() result(assertion)
554 implicit none
555 logical(LK) :: assertion
556 type(Pad_type) :: pad
557 pad = Pad_type(value='undefined')
558 assertion = .not. pad%err%occurred
559 call test%assert(assertion)
560 assertion = assertion .and. pad%val == "undefined"
561 call test%assert(assertion)
562 assertion = assertion .and. pad%isPadded .eqv. .false._LK
563 call test%assert(assertion)
564 assertion = assertion .and. pad%isNotPadded .eqv. .false._LK
565 call test%assert(assertion)
566 assertion = assertion .and. pad%isUndefined .eqv. .true._LK
567 end function test_constructPad_2
568
569!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
570
571 ! Testing `Pad_type( value = 'yes' )`
572 function test_constructPad_3() result(assertion)
573 implicit none
574 logical(LK) :: assertion
575 type(Pad_type) :: pad
576 pad = Pad_type(value='yes')
577 assertion = .not. pad%err%occurred
578 call test%assert(assertion)
579 assertion = assertion .and. pad%val == "yes"
580 call test%assert(assertion)
581 assertion = assertion .and. pad%isPadded .eqv. .true._LK
582 call test%assert(assertion)
583 assertion = assertion .and. pad%isNotPadded .eqv. .false._LK
584 call test%assert(assertion)
585 assertion = assertion .and. pad%isUndefined .eqv. .false._LK
586 end function test_constructPad_3
587
588!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
589
590 ! Testing `Pad_type( value = 'no' )`
591 function test_constructPad_4() result(assertion)
592 implicit none
593 logical(LK) :: assertion
594 type(Pad_type) :: pad
595 pad = Pad_type(value='no')
596 assertion = .not. pad%err%occurred
597 call test%assert(assertion)
598 assertion = assertion .and. pad%val == "no"
599 call test%assert(assertion)
600 assertion = assertion .and. pad%isPadded .eqv. .false._LK
601 call test%assert(assertion)
602 assertion = assertion .and. pad%isNotPadded .eqv. .true._LK
603 call test%assert(assertion)
604 assertion = assertion .and. pad%isUndefined .eqv. .false._LK
605 end function test_constructPad_4
606
607!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
608
609 ! Testing `Pad_type( value = 'nonsense' )`
610 function test_constructPad_5() result(assertion)
611 implicit none
612 logical(LK) :: assertion
613 type(Pad_type) :: pad
614 pad = Pad_type(value="nonsense")
615 assertion = pad%err%occurred
616 call test%assert(assertion)
617 assertion = assertion .and. pad%val == ""
618 call test%assert(assertion)
619 assertion = assertion .and. pad%isPadded .eqv. .false._LK
620 call test%assert(assertion)
621 assertion = assertion .and. pad%isNotPadded .eqv. .false._LK
622 call test%assert(assertion)
623 assertion = assertion .and. pad%isUndefined .eqv. .false._LK
624 end function test_constructPad_5
625
626!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
627
628 function test_constructAction_1() result(assertion)
629 implicit none
630 logical(LK) :: assertion
631 type(Action_type) :: action
632 action = Action_type()
633 assertion = .not. action%err%occurred
634 call test%assert(assertion)
635 assertion = assertion .and. action%val == "readwrite"
636 call test%assert(assertion)
637 assertion = assertion .and. action%isRead .eqv. .false._LK
638 call test%assert(assertion)
639 assertion = assertion .and. action%isWrite .eqv. .false._LK
640 call test%assert(assertion)
641 assertion = assertion .and. action%isReadWrite .eqv. .true._LK
642 call test%assert(assertion)
643 assertion = assertion .and. action%isUndefined .eqv. .false._LK
644 end function test_constructAction_1
645
646!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
647
648 function test_constructAction_2() result(assertion)
649 implicit none
650 logical(LK) :: assertion
651 type(Action_type) :: action
652 action = Action_type(value="undefined")
653 assertion = .not. action%err%occurred
654 call test%assert(assertion)
655 assertion = assertion .and. action%val == "undefined"
656 call test%assert(assertion)
657 assertion = assertion .and. action%isRead .eqv. .false._LK
658 call test%assert(assertion)
659 assertion = assertion .and. action%isWrite .eqv. .false._LK
660 call test%assert(assertion)
661 assertion = assertion .and. action%isReadWrite .eqv. .false._LK
662 call test%assert(assertion)
663 assertion = assertion .and. action%isUndefined .eqv. .true._LK
664 end function test_constructAction_2
665
666!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
667
668 function test_constructAction_3() result(assertion)
669 implicit none
670 logical(LK) :: assertion
671 type(Action_type) :: action
672 action = Action_type(value="read")
673 assertion = .not. action%err%occurred
674 call test%assert(assertion)
675 assertion = assertion .and. action%val == "read"
676 call test%assert(assertion)
677 assertion = assertion .and. action%isRead .eqv. .true._LK
678 call test%assert(assertion)
679 assertion = assertion .and. action%isWrite .eqv. .false._LK
680 call test%assert(assertion)
681 assertion = assertion .and. action%isReadWrite .eqv. .false._LK
682 call test%assert(assertion)
683 assertion = assertion .and. action%isUndefined .eqv. .false._LK
684 end function test_constructAction_3
685
686!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
687
688 function test_constructAction_4() result(assertion)
689 implicit none
690 logical(LK) :: assertion
691 type(Action_type) :: action
692 action = Action_type(value="write")
693 assertion = .not. action%err%occurred
694 call test%assert(assertion)
695 assertion = assertion .and. action%val == "write"
696 call test%assert(assertion)
697 assertion = assertion .and. action%isRead .eqv. .false._LK
698 call test%assert(assertion)
699 assertion = assertion .and. action%isWrite .eqv. .true._LK
700 call test%assert(assertion)
701 assertion = assertion .and. action%isReadWrite .eqv. .false._LK
702 call test%assert(assertion)
703 assertion = assertion .and. action%isUndefined .eqv. .false._LK
704 end function test_constructAction_4
705
706!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
707
708 function test_constructAction_5() result(assertion)
709 implicit none
710 logical(LK) :: assertion
711 type(Action_type) :: action
712 action = Action_type(value="nonsense")
713 assertion = action%err%occurred
714 call test%assert(assertion)
715 assertion = assertion .and. action%val == ""
716 call test%assert(assertion)
717 assertion = assertion .and. action%isRead .eqv. .false._LK
718 call test%assert(assertion)
719 assertion = assertion .and. action%isWrite .eqv. .false._LK
720 call test%assert(assertion)
721 assertion = assertion .and. action%isReadWrite .eqv. .false._LK
722 call test%assert(assertion)
723 assertion = assertion .and. action%isUndefined .eqv. .false._LK
724 end function test_constructAction_5
725
726!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
727
728 function test_constructAccess_1() result(assertion)
729 implicit none
730 logical(LK) :: assertion
731 type(Access_type) :: access
732 access = Access_type()
733 assertion = .not. access%err%occurred
734 call test%assert(assertion)
735 assertion = assertion .and. access%val == "sequential"
736 call test%assert(assertion)
737 assertion = assertion .and. access%isSequential .eqv. .true._LK
738 call test%assert(assertion)
739 assertion = assertion .and. access%isDirect .eqv. .false._LK
740 call test%assert(assertion)
741 assertion = assertion .and. access%isUndefined .eqv. .false._LK
742 end function test_constructAccess_1
743
744!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
745
746 function test_constructAccess_2() result(assertion)
747 implicit none
748 logical(LK) :: assertion
749 type(Access_type) :: access
750 access = Access_type("undefined")
751 assertion = .not. access%err%occurred
752 call test%assert(assertion)
753 assertion = assertion .and. access%val == "undefined"
754 call test%assert(assertion)
755 assertion = assertion .and. access%isSequential .eqv. .false._LK
756 call test%assert(assertion)
757 assertion = assertion .and. access%isDirect .eqv. .false._LK
758 call test%assert(assertion)
759 assertion = assertion .and. access%isUndefined .eqv. .true._LK
760 end function test_constructAccess_2
761
762!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
763
764 function test_constructAccess_3() result(assertion)
765 implicit none
766 logical(LK) :: assertion
767 type(Access_type) :: access
768 access = Access_type("sequential")
769 assertion = .not. access%err%occurred
770 call test%assert(assertion)
771 assertion = assertion .and. access%val == "sequential"
772 call test%assert(assertion)
773 assertion = assertion .and. access%isSequential .eqv. .true._LK
774 call test%assert(assertion)
775 assertion = assertion .and. access%isDirect .eqv. .false._LK
776 call test%assert(assertion)
777 assertion = assertion .and. access%isUndefined .eqv. .false._LK
778 end function test_constructAccess_3
779
780!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
781
782 function test_constructAccess_4() result(assertion)
783 implicit none
784 logical(LK) :: assertion
785 type(Access_type) :: access
786 access = Access_type("direct")
787 assertion = .not. access%err%occurred
788 call test%assert(assertion)
789 assertion = assertion .and. access%val == "direct"
790 call test%assert(assertion)
791 assertion = assertion .and. access%isSequential .eqv. .false._LK
792 call test%assert(assertion)
793 assertion = assertion .and. access%isDirect .eqv. .true._LK
794 call test%assert(assertion)
795 assertion = assertion .and. access%isUndefined .eqv. .false._LK
796 end function test_constructAccess_4
797
798!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
799
800 function test_constructAccess_5() result(assertion)
801 implicit none
802 logical(LK) :: assertion
803 type(Access_type) :: access
804 access = Access_type("nonsense")
805 assertion = access%err%occurred
806 !call test%assert(assertion)
807 !assertion = assertion .and. access%val == "nonsense"
808 !call test%assert(assertion)
809 !assertion = assertion .and. access%isSequential .eqv. .false._LK
810 !call test%assert(assertion)
811 !assertion = assertion .and. access%isDirect .eqv. .false._LK
812 !call test%assert(assertion)
813 !assertion = assertion .and. access%isUndefined .eqv. .false._LK
814 end function test_constructAccess_5
815
816!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
817
818 function test_constructForm_1() result(assertion)
819 implicit none
820 logical(LK) :: assertion
821 type(Form_type) :: form
822 form = Form_type()
823 assertion = .not. form%err%occurred
824 call test%assert(assertion)
825 assertion = assertion .and. form%val == "formatted"
826 call test%assert(assertion)
827 assertion = assertion .and. form%isFormatted .eqv. .true._LK
828 call test%assert(assertion)
829 assertion = assertion .and. form%isUnformatted .eqv. .false._LK
830 call test%assert(assertion)
831 assertion = assertion .and. form%isUndefined .eqv. .false._LK
832 end function test_constructForm_1
833
834!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
835
836 function test_constructForm_2() result(assertion)
837 implicit none
838 logical(LK) :: assertion
839 type(Form_type) :: form
840 form = Form_type("undefined")
841 assertion = .not. form%err%occurred
842 call test%assert(assertion)
843 assertion = assertion .and. form%val == "undefined"
844 call test%assert(assertion)
845 assertion = assertion .and. form%isFormatted .eqv. .false._LK
846 call test%assert(assertion)
847 assertion = assertion .and. form%isUnformatted .eqv. .false._LK
848 call test%assert(assertion)
849 assertion = assertion .and. form%isUndefined .eqv. .true._LK
850 end function test_constructForm_2
851
852!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
853
854 function test_constructForm_3() result(assertion)
855 implicit none
856 logical(LK) :: assertion
857 type(Form_type) :: form
858 form = Form_type("formatted")
859 assertion = .not. form%err%occurred
860 call test%assert(assertion)
861 assertion = assertion .and. form%val == "formatted"
862 call test%assert(assertion)
863 call test%assert(assertion)
864 assertion = assertion .and. form%isFormatted .eqv. .true._LK
865 call test%assert(assertion)
866 assertion = assertion .and. form%isUnformatted .eqv. .false._LK
867 call test%assert(assertion)
868 assertion = assertion .and. form%isUndefined .eqv. .false._LK
869 end function test_constructForm_3
870
871!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
872
873 function test_constructForm_4() result(assertion)
874 implicit none
875 logical(LK) :: assertion
876 type(Form_type) :: form
877 form = Form_type("unformatted")
878 assertion = .not. form%err%occurred
879 call test%assert(assertion)
880 assertion = assertion .and. form%val == "unformatted"
881 call test%assert(assertion)
882 assertion = assertion .and. form%isFormatted .eqv. .false._LK
883 call test%assert(assertion)
884 assertion = assertion .and. form%isUnformatted .eqv. .true._LK
885 call test%assert(assertion)
886 assertion = assertion .and. form%isUndefined .eqv. .false._LK
887 end function test_constructForm_4
888
889!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
890
891 function test_constructForm_5() result(assertion)
892 implicit none
893 logical(LK) :: assertion
894 type(Form_type) :: form
895 form = Form_type("nonsense")
896 assertion = form%err%occurred
897 !call test%assert(assertion)
898 !assertion = assertion .and. form%val == "nonsense"
899 !call test%assert(assertion)
900 !assertion = assertion .and. form%isFormatted .eqv. .false._LK
901 !call test%assert(assertion)
902 !assertion = assertion .and. form%isUnformatted .eqv. .false._LK
903 !call test%assert(assertion)
904 !assertion = assertion .and. form%isUndefined .eqv. .false._LK
905 end function test_constructForm_5
906
907!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
908
909 function test_constructBlank_1() result(assertion)
910 implicit none
911 logical(LK) :: assertion
912 type(Blank_type) :: blank
913 blank = Blank_type()
914 assertion = .not. blank%err%occurred
915 call test%assert(assertion)
916 assertion = assertion .and. blank%val == "null"
917 call test%assert(assertion)
918 assertion = assertion .and. blank%isNull .eqv. .true._LK
919 call test%assert(assertion)
920 assertion = assertion .and. blank%isZero .eqv. .false._LK
921 call test%assert(assertion)
922 assertion = assertion .and. blank%isUndefined .eqv. .false._LK
923 end function test_constructBlank_1
924
925!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
926
927 function test_constructBlank_2() result(assertion)
928 implicit none
929 logical(LK) :: assertion
930 type(Blank_type) :: blank
931 blank = Blank_type("undefined")
932 assertion = .not. blank%err%occurred
933 call test%assert(assertion)
934 assertion = assertion .and. blank%val == "undefined"
935 call test%assert(assertion)
936 assertion = assertion .and. blank%isNull .eqv. .false._LK
937 call test%assert(assertion)
938 assertion = assertion .and. blank%isZero .eqv. .false._LK
939 call test%assert(assertion)
940 assertion = assertion .and. blank%isUndefined .eqv. .true._LK
941 end function test_constructBlank_2
942
943!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
944
945 function test_constructBlank_3() result(assertion)
946 implicit none
947 logical(LK) :: assertion
948 type(Blank_type) :: blank
949 blank = Blank_type("null")
950 assertion = .not. blank%err%occurred
951 call test%assert(assertion)
952 assertion = assertion .and. blank%val == "null"
953 call test%assert(assertion)
954 assertion = assertion .and. blank%isNull .eqv. .true._LK
955 call test%assert(assertion)
956 assertion = assertion .and. blank%isZero .eqv. .false._LK
957 call test%assert(assertion)
958 assertion = assertion .and. blank%isUndefined .eqv. .false._LK
959 end function test_constructBlank_3
960
961!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
962
963 function test_constructBlank_4() result(assertion)
964 implicit none
965 logical(LK) :: assertion
966 type(Blank_type) :: blank
967 blank = Blank_type("zero")
968 assertion = .not. blank%err%occurred
969 call test%assert(assertion)
970 assertion = assertion .and. blank%val == "zero"
971 call test%assert(assertion)
972 assertion = assertion .and. blank%isNull .eqv. .false._LK
973 call test%assert(assertion)
974 assertion = assertion .and. blank%isZero .eqv. .true._LK
975 call test%assert(assertion)
976 assertion = assertion .and. blank%isUndefined .eqv. .false._LK
977 end function test_constructBlank_4
978
979!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
980
981 function test_constructBlank_5() result(assertion)
982 implicit none
983 logical(LK) :: assertion
984 type(Blank_type) :: blank
985 blank = Blank_type("nonsense")
986 assertion = blank%err%occurred
987 !call test%assert(assertion)
988 !assertion = assertion .and. blank%val == "nonsense"
989 !call test%assert(assertion)
990 !assertion = assertion .and. blank%isNull .eqv. .false._LK
991 !call test%assert(assertion)
992 !assertion = assertion .and. blank%isZero .eqv. .false._LK
993 !call test%assert(assertion)
994 !assertion = assertion .and. blank%isUndefined .eqv. .false._LK
995 end function test_constructBlank_5
996
997!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
998
999 function test_constructPosition_1() result(assertion)
1000 implicit none
1001 logical(LK) :: assertion
1002 type(Position_type) :: position
1003 position = Position_type()
1004 assertion = .not. position%err%occurred
1005 call test%assert(assertion)
1006 assertion = assertion .and. position%val == "asis"
1007 call test%assert(assertion)
1008 assertion = assertion .and. position%isRewind .eqv. .false._LK
1009 call test%assert(assertion)
1010 assertion = assertion .and. position%isAppend .eqv. .false._LK
1011 call test%assert(assertion)
1012 assertion = assertion .and. position%isAsis .eqv. .true._LK
1013 call test%assert(assertion)
1014 assertion = assertion .and. position%isUndefined .eqv. .false._LK
1015 end function test_constructPosition_1
1016
1017!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1018
1019 function test_constructPosition_2() result(assertion)
1020 implicit none
1021 logical(LK) :: assertion
1022 type(Position_type) :: position
1023 position = Position_type("undefined")
1024 assertion = .not. position%err%occurred
1025 call test%assert(assertion)
1026 assertion = assertion .and. position%val == "undefined"
1027 call test%assert(assertion)
1028 assertion = assertion .and. position%isRewind .eqv. .false._LK
1029 call test%assert(assertion)
1030 assertion = assertion .and. position%isAppend .eqv. .false._LK
1031 call test%assert(assertion)
1032 assertion = assertion .and. position%isAsis .eqv. .false._LK
1033 call test%assert(assertion)
1034 assertion = assertion .and. position%isUndefined .eqv. .true._LK
1035 end function test_constructPosition_2
1036
1037!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1038
1039 function test_constructPosition_3() result(assertion)
1040 implicit none
1041 logical(LK) :: assertion
1042 type(Position_type) :: position
1043 position = Position_type("rewind")
1044 assertion = .not. position%err%occurred
1045 call test%assert(assertion)
1046 assertion = assertion .and. position%val == "rewind"
1047 call test%assert(assertion)
1048 assertion = assertion .and. position%isRewind .eqv. .true._LK
1049 call test%assert(assertion)
1050 assertion = assertion .and. position%isAppend .eqv. .false._LK
1051 call test%assert(assertion)
1052 assertion = assertion .and. position%isAsis .eqv. .false._LK
1053 call test%assert(assertion)
1054 assertion = assertion .and. position%isUndefined .eqv. .false._LK
1055 end function test_constructPosition_3
1056
1057!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1058
1059 function test_constructPosition_4() result(assertion)
1060 implicit none
1061 logical(LK) :: assertion
1062 type(Position_type) :: position
1063 position = Position_type("APPEND")
1064 assertion = .not. position%err%occurred
1065 call test%assert(assertion)
1066 assertion = assertion .and. position%val == "append"
1067 call test%assert(assertion)
1068 assertion = assertion .and. position%isRewind .eqv. .false._LK
1069 call test%assert(assertion)
1070 assertion = assertion .and. position%isAppend .eqv. .true._LK
1071 call test%assert(assertion)
1072 assertion = assertion .and. position%isAsis .eqv. .false._LK
1073 call test%assert(assertion)
1074 assertion = assertion .and. position%isUndefined .eqv. .false._LK
1075 end function test_constructPosition_4
1076
1077!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1078
1079 function test_constructPosition_5() result(assertion)
1080 implicit none
1081 logical(LK) :: assertion
1082 type(Position_type) :: position
1083 position = Position_type("ASIS")
1084 assertion = .not. position%err%occurred
1085 call test%assert(assertion)
1086 assertion = assertion .and. position%val == "asis"
1087 call test%assert(assertion)
1088 assertion = assertion .and. position%isRewind .eqv. .false._LK
1089 call test%assert(assertion)
1090 assertion = assertion .and. position%isAppend .eqv. .false._LK
1091 call test%assert(assertion)
1092 assertion = assertion .and. position%isAsis .eqv. .true._LK
1093 call test%assert(assertion)
1094 assertion = assertion .and. position%isUndefined .eqv. .false._LK
1095 end function test_constructPosition_5
1096
1097!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1098
1099 function test_constructPosition_6() result(assertion)
1100 implicit none
1101 logical(LK) :: assertion
1102 type(Position_type) :: position
1103 position = Position_type("nonsense")
1104 assertion = position%err%occurred
1105 !call test%assert(assertion)
1106 !assertion = assertion .and. position%val == ""
1107 !call test%assert(assertion)
1108 !assertion = assertion .and. position%isRewind .eqv. .false._LK
1109 !call test%assert(assertion)
1110 !assertion = assertion .and. position%isAppend .eqv. .false._LK
1111 !call test%assert(assertion)
1112 !assertion = assertion .and. position%isAsis .eqv. .false._LK
1113 !call test%assert(assertion)
1114 !assertion = assertion .and. position%isUndefined .eqv. .false._LK
1115 end function test_constructPosition_6
1116
1117!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1118
1119 function test_constructDelim_1() result(assertion)
1120 implicit none
1121 logical(LK) :: assertion
1122 type(Delim_type) :: delim
1123 delim = Delim_type()
1124 assertion = .not. delim%err%occurred
1125 call test%assert(assertion)
1126 assertion = assertion .and. delim%val == "none"
1127 call test%assert(assertion)
1128 assertion = assertion .and. delim%isQuote .eqv. .false._LK
1129 call test%assert(assertion)
1130 assertion = assertion .and. delim%isApostrophe .eqv. .false._LK
1131 call test%assert(assertion)
1132 assertion = assertion .and. delim%isNone .eqv. .true._LK
1133 call test%assert(assertion)
1134 assertion = assertion .and. delim%isUndefined .eqv. .false._LK
1135 end function test_constructDelim_1
1136
1137!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1138
1139 function test_constructDelim_2() result(assertion)
1140 implicit none
1141 logical(LK) :: assertion
1142 type(Delim_type) :: delim
1143 delim = Delim_type("Undefined")
1144 assertion = .not. delim%err%occurred
1145 call test%assert(assertion)
1146 assertion = assertion .and. delim%val == "undefined"
1147 call test%assert(assertion)
1148 assertion = assertion .and. delim%isQuote .eqv. .false._LK
1149 call test%assert(assertion)
1150 assertion = assertion .and. delim%isApostrophe .eqv. .false._LK
1151 call test%assert(assertion)
1152 assertion = assertion .and. delim%isNone .eqv. .false._LK
1153 call test%assert(assertion)
1154 assertion = assertion .and. delim%isUndefined .eqv. .true._LK
1155 end function test_constructDelim_2
1156
1157!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1158
1159 function test_constructDelim_3() result(assertion)
1160 implicit none
1161 logical(LK) :: assertion
1162 type(Delim_type) :: delim
1163 delim = Delim_type("Quote")
1164 assertion = .not. delim%err%occurred
1165 call test%assert(assertion)
1166 assertion = assertion .and. delim%val == "quote"
1167 call test%assert(assertion)
1168 assertion = assertion .and. delim%isQuote .eqv. .true._LK
1169 call test%assert(assertion)
1170 assertion = assertion .and. delim%isApostrophe .eqv. .false._LK
1171 call test%assert(assertion)
1172 assertion = assertion .and. delim%isNone .eqv. .false._LK
1173 call test%assert(assertion)
1174 assertion = assertion .and. delim%isUndefined .eqv. .false._LK
1175 end function test_constructDelim_3
1176
1177!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1178
1179 function test_constructDelim_4() result(assertion)
1180 implicit none
1181 logical(LK) :: assertion
1182 type(Delim_type) :: delim
1183 delim = Delim_type("Apostrophe")
1184 assertion = .not. delim%err%occurred
1185 call test%assert(assertion)
1186 assertion = assertion .and. delim%val == "apostrophe"
1187 call test%assert(assertion)
1188 assertion = assertion .and. delim%isQuote .eqv. .false._LK
1189 call test%assert(assertion)
1190 assertion = assertion .and. delim%isApostrophe .eqv. .true._LK
1191 call test%assert(assertion)
1192 assertion = assertion .and. delim%isNone .eqv. .false._LK
1193 call test%assert(assertion)
1194 assertion = assertion .and. delim%isUndefined .eqv. .false._LK
1195 end function test_constructDelim_4
1196
1197!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1198
1199 function test_constructDelim_5() result(assertion)
1200 implicit none
1201 logical(LK) :: assertion
1202 type(Delim_type) :: delim
1203 delim = Delim_type("None")
1204 assertion = .not. delim%err%occurred
1205 call test%assert(assertion)
1206 assertion = assertion .and. delim%val == "none"
1207 call test%assert(assertion)
1208 assertion = assertion .and. delim%isQuote .eqv. .false._LK
1209 call test%assert(assertion)
1210 call test%assert(assertion)
1211 assertion = assertion .and. delim%isApostrophe .eqv. .false._LK
1212 call test%assert(assertion)
1213 assertion = assertion .and. delim%isNone .eqv. .true._LK
1214 call test%assert(assertion)
1215 assertion = assertion .and. delim%isUndefined .eqv. .false._LK
1216 end function test_constructDelim_5
1217
1218!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1219
1220 function test_constructDelim_6() result(assertion)
1221 implicit none
1222 logical(LK) :: assertion
1223 type(Delim_type) :: delim
1224 delim = Delim_type("nonsense")
1225 assertion = delim%err%occurred
1226 !call test%assert(assertion)
1227 !assertion = assertion .and. delim%val == ""
1228 !call test%assert(assertion)
1229 !assertion = assertion .and. delim%isQuote .eqv. .false._LK
1230 !call test%assert(assertion)
1231 !assertion = assertion .and. delim%isApostrophe .eqv. .false._LK
1232 !call test%assert(assertion)
1233 !assertion = assertion .and. delim%isNone .eqv. .false._LK
1234 !call test%assert(assertion)
1235 !assertion = assertion .and. delim%isUndefined .eqv. .false._LK
1236 end function test_constructDelim_6
1237
1238!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1239
1240 function test_constructRound_1() result(assertion)
1241 implicit none
1242 logical(LK) :: assertion
1243 type(Round_type) :: round
1244 round = Round_type()
1245 assertion = .not. round%err%occurred
1246 call test%assert(assertion)
1247 assertion = assertion .and. round%val == "processor_defined"
1248 call test%assert(assertion)
1249 assertion = assertion .and. round%isUp .eqv. .false._LK
1250 call test%assert(assertion)
1251 assertion = assertion .and. round%isDown .eqv. .false._LK
1252 call test%assert(assertion)
1253 assertion = assertion .and. round%isZero .eqv. .false._LK
1254 call test%assert(assertion)
1255 assertion = assertion .and. round%isNearest .eqv. .false._LK
1256 call test%assert(assertion)
1257 assertion = assertion .and. round%isCompatible .eqv. .false._LK
1258 call test%assert(assertion)
1259 assertion = assertion .and. round%isProcessDefined .eqv. .true._LK
1260 call test%assert(assertion)
1261 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1262 end function test_constructRound_1
1263
1264!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1265
1266 function test_constructRound_2() result(assertion)
1267 implicit none
1268 logical(LK) :: assertion
1269 type(Round_type) :: round
1270 round = Round_type("UP")
1271 assertion = .not. round%err%occurred
1272 call test%assert(assertion)
1273 assertion = assertion .and. round%val == "up"
1274 call test%assert(assertion)
1275 assertion = assertion .and. round%isUp .eqv. .true._LK
1276 call test%assert(assertion)
1277 assertion = assertion .and. round%isDown .eqv. .false._LK
1278 call test%assert(assertion)
1279 assertion = assertion .and. round%isZero .eqv. .false._LK
1280 call test%assert(assertion)
1281 assertion = assertion .and. round%isNearest .eqv. .false._LK
1282 call test%assert(assertion)
1283 assertion = assertion .and. round%isCompatible .eqv. .false._LK
1284 call test%assert(assertion)
1285 assertion = assertion .and. round%isProcessDefined .eqv. .false._LK
1286 call test%assert(assertion)
1287 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1288 end function test_constructRound_2
1289
1290!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1291
1292 function test_constructRound_3() result(assertion)
1293 implicit none
1294 logical(LK) :: assertion
1295 type(Round_type) :: round
1296 round = Round_type("Down")
1297 assertion = .not. round%err%occurred
1298 call test%assert(assertion)
1299 assertion = assertion .and. round%val == "down"
1300 call test%assert(assertion)
1301 assertion = assertion .and. round%isUp .eqv. .false._LK
1302 call test%assert(assertion)
1303 assertion = assertion .and. round%isDown .eqv. .true._LK
1304 call test%assert(assertion)
1305 assertion = assertion .and. round%isZero .eqv. .false._LK
1306 call test%assert(assertion)
1307 assertion = assertion .and. round%isNearest .eqv. .false._LK
1308 call test%assert(assertion)
1309 assertion = assertion .and. round%isCompatible .eqv. .false._LK
1310 call test%assert(assertion)
1311 assertion = assertion .and. round%isProcessDefined .eqv. .false._LK
1312 call test%assert(assertion)
1313 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1314 end function test_constructRound_3
1315
1316!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1317
1318 function test_constructRound_4() result(assertion)
1319 implicit none
1320 logical(LK) :: assertion
1321 type(Round_type) :: round
1322 round = Round_type("Zero")
1323 assertion = .not. round%err%occurred
1324 call test%assert(assertion)
1325 assertion = assertion .and. round%val == "zero"
1326 call test%assert(assertion)
1327 assertion = assertion .and. round%isUp .eqv. .false._LK
1328 call test%assert(assertion)
1329 assertion = assertion .and. round%isDown .eqv. .false._LK
1330 call test%assert(assertion)
1331 assertion = assertion .and. round%isZero .eqv. .true._LK
1332 call test%assert(assertion)
1333 assertion = assertion .and. round%isNearest .eqv. .false._LK
1334 call test%assert(assertion)
1335 assertion = assertion .and. round%isCompatible .eqv. .false._LK
1336 call test%assert(assertion)
1337 assertion = assertion .and. round%isProcessDefined .eqv. .false._LK
1338 call test%assert(assertion)
1339 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1340 end function test_constructRound_4
1341
1342!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1343
1344 function test_constructRound_5() result(assertion)
1345 implicit none
1346 logical(LK) :: assertion
1347 type(Round_type) :: round
1348 round = Round_type("Nearest")
1349 assertion = .not. round%err%occurred
1350 call test%assert(assertion)
1351 assertion = assertion .and. round%val == "nearest"
1352 call test%assert(assertion)
1353 assertion = assertion .and. round%isUp .eqv. .false._LK
1354 call test%assert(assertion)
1355 assertion = assertion .and. round%isDown .eqv. .false._LK
1356 call test%assert(assertion)
1357 assertion = assertion .and. round%isZero .eqv. .false._LK
1358 call test%assert(assertion)
1359 assertion = assertion .and. round%isNearest .eqv. .true._LK
1360 call test%assert(assertion)
1361 assertion = assertion .and. round%isCompatible .eqv. .false._LK
1362 call test%assert(assertion)
1363 assertion = assertion .and. round%isProcessDefined .eqv. .false._LK
1364 call test%assert(assertion)
1365 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1366 end function test_constructRound_5
1367
1368!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1369
1370 function test_constructRound_6() result(assertion)
1371 implicit none
1372 logical(LK) :: assertion
1373 type(Round_type) :: round
1374 round = Round_type("Nearest")
1375 assertion = .not. round%err%occurred
1376 call test%assert(assertion)
1377 assertion = assertion .and. round%val == "nearest"
1378 call test%assert(assertion)
1379 assertion = assertion .and. round%isUp .eqv. .false._LK
1380 call test%assert(assertion)
1381 assertion = assertion .and. round%isDown .eqv. .false._LK
1382 call test%assert(assertion)
1383 assertion = assertion .and. round%isZero .eqv. .false._LK
1384 call test%assert(assertion)
1385 assertion = assertion .and. round%isNearest .eqv. .true._LK
1386 call test%assert(assertion)
1387 assertion = assertion .and. round%isCompatible .eqv. .false._LK
1388 call test%assert(assertion)
1389 assertion = assertion .and. round%isProcessDefined .eqv. .false._LK
1390 call test%assert(assertion)
1391 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1392 end function test_constructRound_6
1393
1394!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1395
1396 function test_constructRound_7() result(assertion)
1397 implicit none
1398 logical(LK) :: assertion
1399 type(Round_type) :: round
1400 round = Round_type("Compatible")
1401 assertion = .not. round%err%occurred
1402 call test%assert(assertion)
1403 assertion = assertion .and. round%val == "compatible"
1404 call test%assert(assertion)
1405 assertion = assertion .and. round%isUp .eqv. .false._LK
1406 call test%assert(assertion)
1407 assertion = assertion .and. round%isDown .eqv. .false._LK
1408 call test%assert(assertion)
1409 assertion = assertion .and. round%isZero .eqv. .false._LK
1410 call test%assert(assertion)
1411 assertion = assertion .and. round%isNearest .eqv. .false._LK
1412 call test%assert(assertion)
1413 assertion = assertion .and. round%isCompatible .eqv. .true._LK
1414 call test%assert(assertion)
1415 assertion = assertion .and. round%isProcessDefined .eqv. .false._LK
1416 call test%assert(assertion)
1417 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1418 end function test_constructRound_7
1419
1420!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1421
1422 function test_constructRound_8() result(assertion)
1423 implicit none
1424 logical(LK) :: assertion
1425 type(Round_type) :: round
1426 round = Round_type("Processor_defined")
1427 assertion = .not. round%err%occurred
1428 call test%assert(assertion)
1429 assertion = assertion .and. round%val == "processor_defined"
1430 call test%assert(assertion)
1431 assertion = assertion .and. round%isUp .eqv. .false._LK
1432 call test%assert(assertion)
1433 assertion = assertion .and. round%isDown .eqv. .false._LK
1434 call test%assert(assertion)
1435 assertion = assertion .and. round%isZero .eqv. .false._LK
1436 call test%assert(assertion)
1437 assertion = assertion .and. round%isNearest .eqv. .false._LK
1438 call test%assert(assertion)
1439 assertion = assertion .and. round%isCompatible .eqv. .false._LK
1440 call test%assert(assertion)
1441 assertion = assertion .and. round%isProcessDefined .eqv. .true._LK
1442 call test%assert(assertion)
1443 assertion = assertion .and. round%isUndefined .eqv. .false._LK
1444 end function test_constructRound_8
1445
1446!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1447
1448 function test_constructRound_9() result(assertion)
1449 implicit none
1450 logical(LK) :: assertion
1451 type(Round_type) :: round
1452 round = Round_type("nonsense")
1453 assertion = round%err%occurred
1454 !call test%assert(assertion)
1455 !assertion = assertion .and. round%val == ""
1456 !call test%assert(assertion)
1457 !assertion = assertion .and. round%isUp .eqv. .false._LK
1458 !call test%assert(assertion)
1459 !assertion = assertion .and. round%isDown .eqv. .false._LK
1460 !call test%assert(assertion)
1461 !assertion = assertion .and. round%isZero .eqv. .false._LK
1462 !call test%assert(assertion)
1463 !assertion = assertion .and. round%isNearest .eqv. .false._LK
1464 !call test%assert(assertion)
1465 !assertion = assertion .and. round%isCompatible .eqv. .false._LK
1466 !call test%assert(assertion)
1467 !assertion = assertion .and. round%isProcessDefined .eqv. .false._LK
1468 !call test%assert(assertion)
1469 !assertion = assertion .and. round%isUndefined .eqv. .false._LK
1470 end function test_constructRound_9
1471
1472!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1473
1474 function test_constructSign_1() result(assertion)
1475 implicit none
1476 logical(LK) :: assertion
1477 type(Sign_type) :: sign
1478 sign = Sign_type()
1479 assertion = .not. sign%err%occurred
1480 call test%assert(assertion)
1481 assertion = assertion .and. sign%val == "processor_defined"
1482 call test%assert(assertion)
1483 assertion = assertion .and. sign%isSuppress .eqv. .false._LK
1484 call test%assert(assertion)
1485 assertion = assertion .and. sign%isPlus .eqv. .false._LK
1486 call test%assert(assertion)
1487 assertion = assertion .and. sign%isProcessDefined .eqv. .true._LK
1488 call test%assert(assertion)
1489 assertion = assertion .and. sign%isUndefined .eqv. .false._LK
1490 end function test_constructSign_1
1491
1492!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1493
1494 function test_constructSign_2() result(assertion)
1495 implicit none
1496 logical(LK) :: assertion
1497 type(Sign_type) :: sign
1498 sign = Sign_type("Undefined")
1499 assertion = .not. sign%err%occurred
1500 call test%assert(assertion)
1501 assertion = assertion .and. sign%val == "undefined"
1502 call test%assert(assertion)
1503 assertion = assertion .and. sign%isSuppress .eqv. .false._LK
1504 call test%assert(assertion)
1505 assertion = assertion .and. sign%isPlus .eqv. .false._LK
1506 call test%assert(assertion)
1507 assertion = assertion .and. sign%isProcessDefined .eqv. .false._LK
1508 call test%assert(assertion)
1509 assertion = assertion .and. sign%isUndefined .eqv. .true._LK
1510 end function test_constructSign_2
1511
1512!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1513
1514 function test_constructSign_3() result(assertion)
1515 implicit none
1516 logical(LK) :: assertion
1517 type(Sign_type) :: sign
1518 sign = Sign_type("Suppress")
1519 assertion = .not. sign%err%occurred
1520 call test%assert(assertion)
1521 assertion = assertion .and. sign%val == "suppress"
1522 call test%assert(assertion)
1523 assertion = assertion .and. sign%isSuppress .eqv. .true._LK
1524 call test%assert(assertion)
1525 assertion = assertion .and. sign%isPlus .eqv. .false._LK
1526 call test%assert(assertion)
1527 assertion = assertion .and. sign%isProcessDefined .eqv. .false._LK
1528 call test%assert(assertion)
1529 assertion = assertion .and. sign%isUndefined .eqv. .false._LK
1530 end function test_constructSign_3
1531
1532!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1533
1534 function test_constructSign_4() result(assertion)
1535 implicit none
1536 logical(LK) :: assertion
1537 type(Sign_type) :: sign
1538 sign = Sign_type("Plus")
1539 assertion = .not. sign%err%occurred
1540 call test%assert(assertion)
1541 assertion = assertion .and. sign%val == "plus"
1542 call test%assert(assertion)
1543 assertion = assertion .and. sign%isSuppress .eqv. .false._LK
1544 call test%assert(assertion)
1545 assertion = assertion .and. sign%isPlus .eqv. .true._LK
1546 call test%assert(assertion)
1547 assertion = assertion .and. sign%isProcessDefined .eqv. .false._LK
1548 call test%assert(assertion)
1549 assertion = assertion .and. sign%isUndefined .eqv. .false._LK
1550 end function test_constructSign_4
1551
1552!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1553
1554 function test_constructSign_5() result(assertion)
1555 implicit none
1556 logical(LK) :: assertion
1557 type(Sign_type) :: sign
1558 sign = Sign_type("Processor_defined")
1559 assertion = .not. sign%err%occurred
1560 call test%assert(assertion)
1561 assertion = assertion .and. sign%val == "processor_defined"
1562 call test%assert(assertion)
1563 assertion = assertion .and. sign%isSuppress .eqv. .false._LK
1564 call test%assert(assertion)
1565 assertion = assertion .and. sign%isPlus .eqv. .false._LK
1566 call test%assert(assertion)
1567 assertion = assertion .and. sign%isProcessDefined .eqv. .true._LK
1568 call test%assert(assertion)
1569 assertion = assertion .and. sign%isUndefined .eqv. .false._LK
1570 end function test_constructSign_5
1571
1572!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1573
1574 function test_constructSign_6() result(assertion)
1575 implicit none
1576 logical(LK) :: assertion
1577 type(Sign_type) :: sign
1578 sign = Sign_type("nonsense")
1579 assertion = sign%err%occurred
1580 !call test%assert(assertion)
1581 !assertion = assertion .and. sign%err%occurred .eqv. .true._LK
1582 !call test%assert(assertion)
1583 !assertion = assertion .and. sign%val == ""
1584 !call test%assert(assertion)
1585 !assertion = assertion .and. sign%isSuppress .eqv. .false._LK
1586 !call test%assert(assertion)
1587 !assertion = assertion .and. sign%isPlus .eqv. .false._LK
1588 !call test%assert(assertion)
1589 !assertion = assertion .and. sign%isProcessDefined .eqv. .false._LK
1590 !call test%assert(assertion)
1591 !assertion = assertion .and. sign%isUndefined .eqv. .false._LK
1592 end function test_constructSign_6
1593
1594!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1595
1596 function test_getWriteErr_1() result(assertion)
1597 use pm_err, only: err_type
1598 implicit none
1599 logical(LK) :: assertion
1600 type(err_type) :: Err
1601 integer :: stat
1602 stat = 1
1603 Err = getWriteErr(stat) ! LCOV_EXCL_LINE
1604 assertion = err%occurred
1605 end function test_getWriteErr_1
1606
1607!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1608
1609 function test_getWriteErr_2() result(assertion)
1610 use pm_err, only: err_type
1611 implicit none
1612 logical(LK) :: assertion
1613 type(err_type) :: Err
1614 integer :: stat
1615 stat = 0
1616 Err = getWriteErr(stat) ! LCOV_EXCL_LINE
1617 assertion = .not. err%occurred
1618 end function test_getWriteErr_2
1619
1620!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1621
1622 function test_getWriteErr_3() result(assertion)
1623 use pm_err, only: err_type
1624 implicit none
1625 logical(LK) :: assertion
1626 type(err_type) :: Err
1627 integer :: stat
1628 stat = -1
1629 Err = getWriteErr(stat) ! LCOV_EXCL_LINE
1630 assertion = err%occurred
1631 end function test_getWriteErr_3
1632
1633!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1634
1635 function test_getReadErr_1() result(assertion)
1636 use pm_err, only: err_type
1637 implicit none
1638 logical(LK) :: assertion
1639 type(err_type) :: Err
1640 integer :: stat
1641 stat = 1
1642 Err = getReadErr(stat,"./path") ! LCOV_EXCL_LINE
1643 assertion = err%occurred
1644 end function test_getReadErr_1
1645
1646!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1647
1648 function test_getReadErr_2() result(assertion)
1649 use pm_err, only: err_type
1650 implicit none
1651 logical(LK) :: assertion
1652 type(err_type) :: Err
1653 integer :: stat
1654 stat = 1
1655 Err = getReadErr(stat) ! LCOV_EXCL_LINE
1656 assertion = err%occurred
1657 end function test_getReadErr_2
1658
1659!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1660
1661 function test_getReadErr_3() result(assertion)
1662 use pm_err, only: err_type
1663 implicit none
1664 logical(LK) :: assertion
1665 type(err_type) :: Err
1666 integer :: stat
1667 stat = 0
1668 Err = getReadErr(stat,"./path") ! LCOV_EXCL_LINE
1669 assertion = .not. err%occurred
1670 end function test_getReadErr_3
1671
1672!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1673
1674 function test_getReadErr_4() result(assertion)
1675 use pm_err, only: err_type
1676 implicit none
1677 logical(LK) :: assertion
1678 type(err_type) :: Err
1679 integer :: stat
1680 stat = 0
1681 Err = getReadErr(stat) ! LCOV_EXCL_LINE
1682 assertion = .not. err%occurred
1683 end function test_getReadErr_4
1684
1685!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1686
1687 function test_getReadErr_5() result(assertion)
1688 use pm_err, only: err_type
1689 implicit none
1690 logical(LK) :: assertion
1691 type(err_type) :: Err
1692 integer :: stat
1693 stat = -1
1694 Err = getReadErr(stat,"./path") ! LCOV_EXCL_LINE
1695 assertion = err%occurred
1696 end function test_getReadErr_5
1697
1698!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1699
1700 function test_getReadErr_6() result(assertion)
1701 use pm_err, only: err_type
1702 implicit none
1703 logical(LK) :: assertion
1704 type(err_type) :: Err
1705 integer :: stat
1706 stat = -1
1707 Err = getReadErr(stat) ! LCOV_EXCL_LINE
1708 assertion = err%occurred
1709 end function test_getReadErr_6
1710
1711!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1712
1713 function test_isCloseErr_1() result(assertion)
1714 logical(LK) :: assertion
1715 assertion = .not. isCloseErr(0_IK)
1716 end function test_isCloseErr_1
1717
1718!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1719
1720 function test_isCloseErr_2() result(assertion)
1721 use pm_err, only: err_type
1722 implicit none
1723 logical(LK) :: assertion
1724 type(err_type) :: Err
1725 integer :: stat
1726 stat = 1
1727 Err = isCloseErr(stat) ! LCOV_EXCL_LINE
1728 assertion = err%occurred
1729 end function test_isCloseErr_2
1730
1731!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1732
1733 function test_isCloseErr_3() result(assertion)
1734 use pm_err, only: err_type
1735 implicit none
1736 logical(LK) :: assertion
1737 type(err_type) :: Err
1738 Err = isCloseErr(-1) ! LCOV_EXCL_LINE
1739 assertion = .not. err%occurred
1740 end function test_isCloseErr_3
1741
1742!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1743
1744 function test_isOpenErr_1() result(assertion)
1745 logical(LK) :: assertion
1746 assertion = .not. isOpenErr(0_IK)
1747 end function test_isOpenErr_1
1748
1749!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1750
1751 function test_isOpenErr_2() result(assertion)
1752 logical(LK) :: assertion
1753 assertion = isOpenErr(1_IK)
1754 end
1755
1756!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1757
1758 function test_getOpenErr_3() result(assertion)
1759 logical(LK) :: assertion
1760 assertion = isOpenErr(-1_IK)
1761 end
1762
1763!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1764
1765 function test_isInqErr_1() result(assertion)
1766 logical(LK) :: assertion
1767 assertion = .not. isInqErr(0_IK)
1768 end
1769
1770!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1771
1772 function test_isInqErr_2() result(assertion)
1773 logical(LK) :: assertion
1774 assertion = isInqErr(1_IK)
1775 end
1776
1777!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1778
1779 function test_isInqErr_3() result(assertion)
1780 logical(LK) :: assertion
1781 assertion = isInqErr(-1_IK)
1782 end
1783
1784!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1785
1788 function test_isExtant_1() result(assertion)
1789 use pm_err, only: err_type
1790 implicit none
1791 logical(LK) :: assertion
1792 logical(LK) :: exists
1793 type(err_type) :: Err
1794 call isExtant(exists, Err, unit = -1, file = "")
1795 assertion = err%occurred
1796 end
1797
1798!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1799
1802 function test_isExtant_2() result(assertion)
1803 use pm_err, only: err_type
1804 implicit none
1805 logical(LK) :: assertion
1806 logical(LK) :: exists
1807 type(err_type) :: Err
1808 call isExtant(exists, Err)
1809 assertion = err%occurred
1810 end function test_isExtant_2
1811
1812!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1813
1816 function test_isExtant_3() result(assertion)
1817 use pm_err, only: err_type
1818 implicit none
1819 logical(LK) :: assertion
1820 logical(LK) :: exists
1821 type(err_type) :: Err
1822 call isExtant(exists, Err, unit = 123)
1823 assertion = .not. err%occurred
1824 end function test_isExtant_3
1825
1826!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1827
1830 function test_getOpenStatus_1() result(assertion)
1831 use pm_err, only: err_type
1832 implicit none
1833 logical(LK) :: assertion
1834 logical(LK) :: isOpen
1835 type(err_type) :: Err
1836 call getOpenStatus(isOpen, Err, unit = 124, file = "")
1837 assertion = err%occurred
1838 end function test_getOpenStatus_1
1839
1840!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1841
1844 function test_getOpenStatus_2() result(assertion)
1845 use pm_err, only: err_type
1846 implicit none
1847 logical(LK) :: assertion
1848 logical(LK) :: isOpen
1849 type(err_type) :: Err
1850 call getOpenStatus(isOpen, Err)
1851 assertion = err%occurred
1852 end function test_getOpenStatus_2
1853
1854!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1855
1858 function test_getOpenStatus_3() result(assertion)
1859 use pm_err, only: err_type
1860 implicit none
1861 logical(LK) :: assertion
1862 logical(LK) :: isOpen
1863 type(err_type) :: Err
1864 call getOpenStatus(isOpen, Err, unit = 123)
1865 assertion = .not. err%occurred
1866 end function test_getOpenStatus_3
1867
1868!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1869
1872 function test_getOpenStatus_4() result(assertion)
1873 use pm_err, only: err_type
1874 implicit none
1875 logical(LK) :: assertion
1876 logical(LK) :: isOpen
1877 type(err_type) :: Err
1878 call getOpenStatus(isOpen, Err, file = "nonexisting.file")
1879 assertion = .not. isOpen .and. .not. err%occurred
1880 end function test_getOpenStatus_4
1881
1882!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1883
1886 function test_getNumber_1() result(assertion)
1887 use pm_err, only: err_type
1888 implicit none
1889 logical(LK) :: assertion
1890 type(err_type) :: Err
1891 logical(LK) :: isNumbered
1892 integer :: number
1893 call getNumber(isNumbered, number, Err, unit = 124, file = "")
1894 assertion = err%occurred
1895 end function test_getNumber_1
1896
1897!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1898
1901 function test_getNumber_2() result(assertion)
1902 use pm_err, only: err_type
1903 implicit none
1904 logical(LK) :: assertion
1905 type(err_type) :: Err
1906 logical(LK) :: isNumbered
1907 integer :: number
1908 call getNumber(isNumbered, number, Err)
1909 assertion = err%occurred
1910 end function test_getNumber_2
1911
1912!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1913
1916 function test_getNumber_3() result(assertion)
1917 use pm_err, only: err_type
1918 implicit none
1919 logical(LK) :: assertion
1920 type(err_type) :: Err
1921 logical(LK) :: isNumbered
1922 integer :: number
1923 call getNumber(isNumbered, number, Err, unit = 124)
1924 assertion = .not. err%occurred .and. number == -1 .and. .not. isNumbered
1925 end function test_getNumber_3
1926
1927!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1928
1931 function test_getNumber_4() result(assertion)
1932 use pm_err, only: err_type
1933 implicit none
1934 logical(LK) :: assertion
1935 type(err_type) :: Err
1936 logical(LK) :: isNumbered
1937 integer :: number
1938 call getNumber(isNumbered, number, Err, file = "nonexisting.file")
1939 assertion = .not. err%occurred .and. number == -1 .and. .not. isNumbered
1940 end function test_getNumber_4
1941
1942!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1943
1946 function test_getName_1() result(assertion)
1947 use pm_err, only: err_type
1948 implicit none
1949 logical(LK) :: assertion
1950 type(err_type) :: Err
1951 logical(LK) :: isNamed
1952 character(:, SK), allocatable :: nameByCompiler
1953 call getName(isNamed, nameByCompiler, Err, unit = 124, file = "")
1954 assertion = err%occurred
1955 end function test_getName_1
1956
1957!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1958
1961 function test_getName_2() result(assertion)
1962 use pm_err, only: err_type
1963 implicit none
1964 logical(LK) :: assertion
1965 type(err_type) :: Err
1966 logical(LK) :: isNamed
1967 character(:, SK), allocatable :: nameByCompiler
1968 call getName(isNamed, nameByCompiler, Err)
1969 assertion = err%occurred
1970 end function test_getName_2
1971
1972!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1973
1976 function test_getName_3() result(assertion)
1977 use pm_err, only: err_type
1978 implicit none
1979 logical(LK) :: assertion
1980 type(err_type) :: Err
1981 logical(LK) :: isNamed
1982 character(:, SK), allocatable :: nameByCompiler
1983 call getName(isNamed, nameByCompiler, Err, unit = 124)
1984 assertion = .not. err%occurred .and. .not. isNamed
1985 end function test_getName_3
1986
1987!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
1988
1991 function test_getName_4() result(assertion)
1992 use pm_err, only: err_type
1993 implicit none
1994 logical(LK) :: assertion
1995 type(err_type) :: Err
1996 logical(LK) :: isNamed
1997 character(:, SK), allocatable :: nameByCompiler
1998 call getName(isNamed, nameByCompiler, Err, file = "nonexisting.file")
1999 assertion = .not. err%occurred .and. isNamed
2000#if !CODECOV_ENABLED
2001 assertion = .true._LK
2002#endif
2003 end function test_getName_4
2004
2005!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2006
2009 function test_getAccess_1() result(assertion)
2010 use pm_err, only: err_type
2011 implicit none
2012 logical(LK) :: assertion
2013 type(err_type) :: Err
2014 character(:, SK), allocatable :: access
2015 call getAccess(access, Err, unit = 124, file = "")
2016 assertion = err%occurred
2017 end function test_getAccess_1
2018
2019!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2020
2023 function test_getAccess_2() result(assertion)
2024 use pm_err, only: err_type
2025 implicit none
2026 logical(LK) :: assertion
2027 type(err_type) :: Err
2028 character(:, SK), allocatable :: access
2029 call getAccess(access, Err)
2030 assertion = err%occurred
2031 end function test_getAccess_2
2032
2033!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2034
2037 function test_getAccess_3() result(assertion)
2038 use pm_err, only: err_type
2039 implicit none
2040 logical(LK) :: assertion
2041 type(err_type) :: Err
2042 character(:, SK), allocatable :: access
2043 call getAccess(access, Err, unit = 124)
2044 assertion = .not. err%occurred
2045 end function test_getAccess_3
2046
2047!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2048
2051 function test_getAccess_4() result(assertion)
2052 use pm_err, only: err_type
2053 implicit none
2054 logical(LK) :: assertion
2055 type(err_type) :: Err
2056 character(:, SK), allocatable :: access
2057 call getAccess(access, Err, file = "nonexisting.file")
2058 assertion = .not. err%occurred
2059 end function test_getAccess_4
2060
2061!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2062
2065 function test_getForm_1() result(assertion)
2066 use pm_err, only: err_type
2067 implicit none
2068 logical(LK) :: assertion
2069 type(err_type) :: Err
2070 character(:, SK), allocatable :: form
2071 call getForm(form, Err, unit = 124, file = "")
2072 assertion = err%occurred
2073 end function test_getForm_1
2074
2075!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2076
2079 function test_getForm_2() result(assertion)
2080 use pm_err, only: err_type
2081 implicit none
2082 logical(LK) :: assertion
2083 type(err_type) :: Err
2084 character(:, SK), allocatable :: form
2085 call getForm(form, Err)
2086 assertion = err%occurred
2087 end function test_getForm_2
2088
2089!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2090
2093 function test_getForm_3() result(assertion)
2094 use pm_err, only: err_type
2095 implicit none
2096 logical(LK) :: assertion
2097 type(err_type) :: Err
2098 character(:, SK), allocatable :: form
2099 call getForm(form, Err, unit = 124)
2100 assertion = .not. err%occurred
2101 end function test_getForm_3
2102
2103!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2104
2107 function test_getForm_4() result(assertion)
2108 use pm_err, only: err_type
2109 implicit none
2110 logical(LK) :: assertion
2111 type(err_type) :: Err
2112 character(:, SK), allocatable :: form
2113 call getForm(form, Err, file = "nonexisting.file")
2114 assertion = .not. err%occurred
2115 end function test_getForm_4
2116
2117!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2118
2121 function test_getRecl_1() result(assertion)
2122 use pm_err, only: err_type
2123 implicit none
2124 logical(LK) :: assertion
2125 type(err_type) :: Err
2126 integer :: recl
2127 call getRecl(recl, Err, unit = 124, file = "")
2128 assertion = err%occurred
2129 end function test_getRecl_1
2130
2131!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2132
2135 function test_getRecl_2() result(assertion)
2136 use pm_err, only: err_type
2137 implicit none
2138 logical(LK) :: assertion
2139 type(err_type) :: Err
2140 integer :: recl
2141 call getRecl(recl, Err)
2142 assertion = err%occurred
2143 end function test_getRecl_2
2144
2145!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2146
2149 function test_getRecl_3() result(assertion)
2150 use pm_err, only: err_type
2151 implicit none
2152 logical(LK) :: assertion
2153 type(err_type) :: Err
2154 integer :: recl
2155 call getRecl(recl, Err, unit = 124)
2156 assertion = .not. err%occurred
2157 end function test_getRecl_3
2158
2159!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2160
2163 function test_getRecl_4() result(assertion)
2164 use pm_err, only: err_type
2165 implicit none
2166 logical(LK) :: assertion
2167 type(err_type) :: Err
2168 integer :: recl
2169 call getRecl(recl, Err, file = "nonexisting.file")
2170 assertion = .not. err%occurred
2171 end function test_getRecl_4
2172
2173!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2174
2177 function test_getBlank_1() result(assertion)
2178 use pm_err, only: err_type
2179 implicit none
2180 logical(LK) :: assertion
2181 type(err_type) :: Err
2182 character(:, SK), allocatable :: blank
2183 call getBlank(blank, Err, unit = 124, file = "")
2184 assertion = err%occurred
2185 end function test_getBlank_1
2186
2187!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2188
2191 function test_getBlank_2() result(assertion)
2192 use pm_err, only: err_type
2193 implicit none
2194 logical(LK) :: assertion
2195 type(err_type) :: Err
2196 character(:, SK), allocatable :: blank
2197 call getBlank(blank, Err)
2198 assertion = err%occurred
2199 end function test_getBlank_2
2200
2201!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2202
2205 function test_getBlank_3() result(assertion)
2206 use pm_err, only: err_type
2207 implicit none
2208 logical(LK) :: assertion
2209 type(err_type) :: Err
2210 character(:, SK), allocatable :: blank
2211 call getBlank(blank, Err, unit = 124)
2212 assertion = .not. err%occurred .and. blank == "undefined"
2213 if (test%traceable .and. .not. assertion) then
2214 ! LCOV_EXCL_START
2215 write(test%disp%unit,"(*(g0))")
2216 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2217 write(test%disp%unit,"(*(g0))") "blank : ", blank
2218 write(test%disp%unit,"(*(g0))")
2219 end if
2220 ! LCOV_EXCL_STOP
2221 end function test_getBlank_3
2222
2223!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2224
2227 function test_getBlank_4() result(assertion)
2228 use pm_err, only: err_type
2229 implicit none
2230 logical(LK) :: assertion
2231 type(err_type) :: Err
2232 character(:, SK), allocatable :: blank
2233 call getBlank(blank, Err, file = "nonexisting.file")
2234 assertion = .not. err%occurred .and. blank == "undefined"
2235 if (test%traceable .and. .not. assertion) then
2236 ! LCOV_EXCL_START
2237 write(test%disp%unit,"(*(g0))")
2238 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2239 write(test%disp%unit,"(*(g0))") "blank : ", blank
2240 write(test%disp%unit,"(*(g0))")
2241 end if
2242 ! LCOV_EXCL_STOP
2243 end function test_getBlank_4
2244
2245!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2246
2249 function test_getPosition_1() result(assertion)
2250 use pm_err, only: err_type
2251 implicit none
2252 logical(LK) :: assertion
2253 type(err_type) :: Err
2254 character(:, SK), allocatable :: position
2255 call getPosition(position, Err, unit = 124, file = "")
2256 assertion = err%occurred
2257 end function test_getPosition_1
2258
2259!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2260
2263 function test_getPosition_2() result(assertion)
2264 use pm_err, only: err_type
2265 implicit none
2266 logical(LK) :: assertion
2267 type(err_type) :: Err
2268 character(:, SK), allocatable :: position
2269 call getPosition(position, Err)
2270 assertion = err%occurred
2271 end function test_getPosition_2
2272
2273!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2274
2277 function test_getPosition_3() result(assertion)
2278 use pm_err, only: err_type
2279 implicit none
2280 logical(LK) :: assertion
2281 type(err_type) :: Err
2282 character(:, SK), allocatable :: position
2283 call getPosition(position, Err, unit = 124)
2284 assertion = .not. err%occurred .and. position == "undefined"
2285 if (test%traceable .and. .not. assertion) then
2286 ! LCOV_EXCL_START
2287 write(test%disp%unit,"(*(g0))")
2288 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2289 write(test%disp%unit,"(*(g0))") "position : ", position
2290 write(test%disp%unit,"(*(g0))")
2291 ! LCOV_EXCL_STOP
2292 end if
2293 end function test_getPosition_3
2294
2295!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2296
2299 function test_getPosition_4() result(assertion)
2300 use pm_err, only: err_type
2301 implicit none
2302 logical(LK) :: assertion
2303 type(err_type) :: Err
2304 character(:, SK), allocatable :: position
2305 call getPosition(position, Err, file = "nonexisting.file")
2306 assertion = .not. err%occurred .and. position == "undefined"
2307 if (test%traceable .and. .not. assertion) then
2308 ! LCOV_EXCL_START
2309 write(test%disp%unit,"(*(g0))")
2310 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2311 write(test%disp%unit,"(*(g0))") "position : ", position
2312 write(test%disp%unit,"(*(g0))")
2313 ! LCOV_EXCL_STOP
2314 end if
2315 end function test_getPosition_4
2316
2317!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2318
2321 function test_getAction_1() result(assertion)
2322 use pm_err, only: err_type
2323 implicit none
2324 logical(LK) :: assertion
2325 type(err_type) :: Err
2326 character(:, SK), allocatable :: action
2327 call getAction(action, Err, unit = 124, file = "")
2328 assertion = err%occurred
2329 end function test_getAction_1
2330
2331!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2332
2335 function test_getAction_2() result(assertion)
2336 use pm_err, only: err_type
2337 implicit none
2338 logical(LK) :: assertion
2339 type(err_type) :: Err
2340 character(:, SK), allocatable :: action
2341 call getAction(action, Err)
2342 assertion = err%occurred
2343 end function test_getAction_2
2344
2345!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2346
2349 function test_getAction_3() result(assertion)
2350 use pm_err, only: err_type
2351 implicit none
2352 logical(LK) :: assertion
2353 type(err_type) :: Err
2354 character(:, SK), allocatable :: action
2355 call getAction(action, Err, unit = 124)
2356 assertion = .not. err%occurred .and. action == "undefined"
2357 if (test%traceable .and. .not. assertion) then
2358 ! LCOV_EXCL_START
2359 write(test%disp%unit,"(*(g0))")
2360 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2361 write(test%disp%unit,"(*(g0))") "action : ", action
2362 write(test%disp%unit,"(*(g0))")
2363 end if
2364 ! LCOV_EXCL_STOP
2365 end function test_getAction_3
2366
2367!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2368
2371 function test_getAction_4() result(assertion)
2372 use pm_err, only: err_type
2373 implicit none
2374 logical(LK) :: assertion
2375 type(err_type) :: Err
2376 character(:, SK), allocatable :: action
2377 call getAction(action, Err, file = "nonexisting.file")
2378 assertion = .not. err%occurred !.and. action == "undefined"
2379 if (test%traceable .and. .not. assertion) then
2380 ! LCOV_EXCL_START
2381 write(test%disp%unit,"(*(g0))")
2382 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2383 write(test%disp%unit,"(*(g0))") "action : ", action
2384 write(test%disp%unit,"(*(g0))")
2385 end if
2386 ! LCOV_EXCL_STOP
2387 end function test_getAction_4
2388
2389!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2390
2393 function test_getDelim_1() result(assertion)
2394 use pm_err, only: err_type
2395 implicit none
2396 logical(LK) :: assertion
2397 type(err_type) :: Err
2398 character(:, SK), allocatable :: delim
2399 call getDelim(delim, Err, unit = 124, file = "")
2400 assertion = err%occurred
2401 end function test_getDelim_1
2402
2403!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2404
2407 function test_getDelim_2() result(assertion)
2408 use pm_err, only: err_type
2409 implicit none
2410 logical(LK) :: assertion
2411 type(err_type) :: Err
2412 character(:, SK), allocatable :: delim
2413 call getDelim(delim, Err)
2414 assertion = err%occurred
2415 end function test_getDelim_2
2416
2417!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2418
2421 function test_getDelim_3() result(assertion)
2422 use pm_err, only: err_type
2423 implicit none
2424 logical(LK) :: assertion
2425 type(err_type) :: Err
2426 character(:, SK), allocatable :: delim
2427 call getDelim(delim, Err, unit = 124)
2428 assertion = .not. err%occurred .and. delim == "undefined"
2429 if (test%traceable .and. .not. assertion) then
2430 ! LCOV_EXCL_START
2431 write(test%disp%unit,"(*(g0))")
2432 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2433 write(test%disp%unit,"(*(g0))") "delim : ", delim
2434 write(test%disp%unit,"(*(g0))")
2435 end if
2436 ! LCOV_EXCL_STOP
2437 end function test_getDelim_3
2438
2439!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2440
2443 function test_getDelim_4() result(assertion)
2444 use pm_err, only: err_type
2445 implicit none
2446 logical(LK) :: assertion
2447 type(err_type) :: Err
2448 character(:, SK), allocatable :: delim
2449 call getDelim(delim, Err, file = "nonexisting.file")
2450 assertion = .not. err%occurred !.and. delim == "undefined"
2451 if (test%traceable .and. .not. assertion) then
2452 ! LCOV_EXCL_START
2453 write(test%disp%unit,"(*(g0))")
2454 write(test%disp%unit,"(*(g0))") "err%occurred : ", err%occurred
2455 write(test%disp%unit,"(*(g0))") "delim : ", delim
2456 write(test%disp%unit,"(*(g0))")
2457 end if
2458 ! LCOV_EXCL_STOP
2459 end function test_getDelim_4
2460
2461!%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
2462
2463end module test_pm_io ! LCOV_EXCL_LINE
pm_io::getAction
Generate and return the action attribute of the input file or unit.
Definition: pm_io.F90:1384
pm_io::isOpen
Generate and return .true. if the input file (or unit) is connected to a unit (or file),...
Definition: pm_io.F90:1289
pm_err
This module contains classes and procedures for reporting and handling errors.
Definition: pm_err.F90:52
pm_io
This module contains classes and procedures for input/output (IO) or generic display operations on st...
Definition: pm_io.F90:252
pm_io::MODULE_NAME
character(*, SK), parameter MODULE_NAME
Definition: pm_io.F90:267
pm_io::disp
type(display_type) disp
This is a scalar module variable an object of type display_type for general display.
Definition: pm_io.F90:11393
pm_test
This module contains a simple unit-testing framework for the Fortran libraries, including the ParaMon...
Definition: pm_test.F90:42
test_pm_io
This module contains tests of the module pm_io.
Definition: test_pm_io.F90:20
test_pm_io::test_getReadErr_3
logical(LK) function test_getReadErr_3()
Definition: test_pm_io.F90:1662
test_pm_io::test_getReadErr_2
logical(LK) function test_getReadErr_2()
Definition: test_pm_io.F90:1649
test_pm_io::test_getAction_2
logical(LK) function test_getAction_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:2336
test_pm_io::test_constructDelim_6
logical(LK) function test_constructDelim_6()
Definition: test_pm_io.F90:1221
test_pm_io::test_isInqErr_3
logical(LK) function test_isInqErr_3()
Definition: test_pm_io.F90:1780
test_pm_io::test_getOpenStatus_3
logical(LK) function test_getOpenStatus_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:1859
test_pm_io::test_constructBlank_4
logical(LK) function test_constructBlank_4()
Definition: test_pm_io.F90:964
test_pm_io::test_getNumber_4
logical(LK) function test_getNumber_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:1932
test_pm_io::test_getForm_4
logical(LK) function test_getForm_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:2108
test_pm_io::test_constructSign_1
logical(LK) function test_constructSign_1()
Definition: test_pm_io.F90:1475
test_pm_io::test_getBlank_2
logical(LK) function test_getBlank_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:2192
test_pm_io::test_constructPosition_6
logical(LK) function test_constructPosition_6()
Definition: test_pm_io.F90:1100
test_pm_io::test_constructForm_3
logical(LK) function test_constructForm_3()
Definition: test_pm_io.F90:855
test_pm_io::test_getName_3
logical(LK) function test_getName_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:1977
test_pm_io::test_constructRound_4
logical(LK) function test_constructRound_4()
Definition: test_pm_io.F90:1319
test_pm_io::test_getDelim_4
logical(LK) function test_getDelim_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:2444
test_pm_io::test_constructAction_2
logical(LK) function test_constructAction_2()
Definition: test_pm_io.F90:649
test_pm_io::test_constructDelim_5
logical(LK) function test_constructDelim_5()
Definition: test_pm_io.F90:1200
test_pm_io::test_constructRound_8
logical(LK) function test_constructRound_8()
Definition: test_pm_io.F90:1423
test_pm_io::test_getWriteErr_1
logical(LK) function test_getWriteErr_1()
Definition: test_pm_io.F90:1597
test_pm_io::test_constructBlank_3
logical(LK) function test_constructBlank_3()
Definition: test_pm_io.F90:946
test_pm_io::test_constructSign_2
logical(LK) function test_constructSign_2()
Definition: test_pm_io.F90:1495
test_pm_io::test_constructPosition_3
logical(LK) function test_constructPosition_3()
Definition: test_pm_io.F90:1040
test_pm_io::test_getOpenStatus_2
logical(LK) function test_getOpenStatus_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:1845
test_pm_io::test_constructBlank_2
logical(LK) function test_constructBlank_2()
Definition: test_pm_io.F90:928
test_pm_io::test_constructPosition_4
logical(LK) function test_constructPosition_4()
Definition: test_pm_io.F90:1060
test_pm_io::test_isInqErr_1
logical(LK) function test_isInqErr_1()
Definition: test_pm_io.F90:1766
test_pm_io::test_getForm_3
logical(LK) function test_getForm_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:2094
test_pm_io::test_getOpenStatus_1
logical(LK) function test_getOpenStatus_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:1831
test_pm_io::test_getRecl_2
logical(LK) function test_getRecl_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:2136
test_pm_io::test_getRecl_4
logical(LK) function test_getRecl_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:2164
test_pm_io::test_constructAccess_2
logical(LK) function test_constructAccess_2()
Definition: test_pm_io.F90:747
test_pm_io::test_constructAction_4
logical(LK) function test_constructAction_4()
Definition: test_pm_io.F90:689
test_pm_io::test_getNumber_2
logical(LK) function test_getNumber_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:1902
test_pm_io::test_getDelim_1
logical(LK) function test_getDelim_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:2394
test_pm_io::test_getDelim_2
logical(LK) function test_getDelim_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:2408
test_pm_io::test_constructBlank_1
logical(LK) function test_constructBlank_1()
Definition: test_pm_io.F90:910
test_pm_io::test_getAccess_2
logical(LK) function test_getAccess_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:2024
test_pm_io::test_getForm_2
logical(LK) function test_getForm_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:2080
test_pm_io::test_constructRound_3
logical(LK) function test_constructRound_3()
Definition: test_pm_io.F90:1293
test_pm_io::test_constructSign_6
logical(LK) function test_constructSign_6()
Definition: test_pm_io.F90:1575
test_pm_io::test_getName_2
logical(LK) function test_getName_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:1962
test_pm_io::test_constructDelim_4
logical(LK) function test_constructDelim_4()
Definition: test_pm_io.F90:1180
test_pm_io::test_constructPad_2
logical(LK) function test_constructPad_2()
Definition: test_pm_io.F90:554
test_pm_io::test_getPosition_3
logical(LK) function test_getPosition_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:2278
test_pm_io::test_constructFile_3
logical(LK) function test_constructFile_3()
Test the effects of missing input argument form.
Definition: test_pm_io.F90:401
test_pm_io::test_getPosition_2
logical(LK) function test_getPosition_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:2264
test_pm_io::test_constructAccess_3
logical(LK) function test_constructAccess_3()
Definition: test_pm_io.F90:765
test_pm_io::test_getOpenErr_3
logical(LK) function test_getOpenErr_3()
Definition: test_pm_io.F90:1759
test_pm_io::test_constructAccess_5
logical(LK) function test_constructAccess_5()
Definition: test_pm_io.F90:801
test_pm_io::test_constructAccess_1
logical(LK) function test_constructAccess_1()
Definition: test_pm_io.F90:729
test_pm_io::test_constructRound_6
logical(LK) function test_constructRound_6()
Definition: test_pm_io.F90:1371
test_pm_io::test_isOpenErr_2
logical(LK) function test_isOpenErr_2()
Definition: test_pm_io.F90:1752
test_pm_io::test_getAction_3
logical(LK) function test_getAction_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:2350
test_pm_io::test_constructForm_4
logical(LK) function test_constructForm_4()
Definition: test_pm_io.F90:874
test_pm_io::test_isOpenErr_1
logical(LK) function test_isOpenErr_1()
Definition: test_pm_io.F90:1745
test_pm_io::test_getName_1
logical(LK) function test_getName_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:1947
test_pm_io::test_getNumber_3
logical(LK) function test_getNumber_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:1917
test_pm_io::test_constructSign_4
logical(LK) function test_constructSign_4()
Definition: test_pm_io.F90:1535
test_pm_io::test_isExtant_3
logical(LK) function test_isExtant_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:1817
test_pm_io::test_constructAccess_4
logical(LK) function test_constructAccess_4()
Definition: test_pm_io.F90:783
test_pm_io::test_getDelim_3
logical(LK) function test_getDelim_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:2422
test_pm_io::test_constructRound_5
logical(LK) function test_constructRound_5()
Definition: test_pm_io.F90:1345
test_pm_io::test_constructPosition_1
logical(LK) function test_constructPosition_1()
Definition: test_pm_io.F90:1000
test_pm_io::test_getAction_4
logical(LK) function test_getAction_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:2372
test_pm_io::test_getRecl_3
logical(LK) function test_getRecl_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:2150
test_pm_io::test_getReadErr_4
logical(LK) function test_getReadErr_4()
Definition: test_pm_io.F90:1675
test_pm_io::test_isCloseErr_3
logical(LK) function test_isCloseErr_3()
Definition: test_pm_io.F90:1734
test_pm_io::test_constructPad_4
logical(LK) function test_constructPad_4()
Definition: test_pm_io.F90:592
test_pm_io::test_getPosition_4
logical(LK) function test_getPosition_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:2300
test_pm_io::test_constructRound_1
logical(LK) function test_constructRound_1()
Definition: test_pm_io.F90:1241
test_pm_io::test_getBlank_4
logical(LK) function test_getBlank_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:2228
test_pm_io::test_constructFile_1
logical(LK) function test_constructFile_1()
Definition: test_pm_io.F90:164
test_pm_io::setTest
subroutine setTest()
Definition: test_pm_io.F90:37
test_pm_io::test_getNumber_1
logical(LK) function test_getNumber_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:1887
test_pm_io::test_getForm_1
logical(LK) function test_getForm_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:2066
test_pm_io::test_getBlank_3
logical(LK) function test_getBlank_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:2206
test_pm_io::test_getReadErr_1
logical(LK) function test_getReadErr_1()
Definition: test_pm_io.F90:1636
test_pm_io::test_getAction_1
logical(LK) function test_getAction_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:2322
test_pm_io::test_getAccess_1
logical(LK) function test_getAccess_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:2010
test_pm_io::test_constructSign_5
logical(LK) function test_constructSign_5()
Definition: test_pm_io.F90:1555
test_pm_io::test_constructForm_2
logical(LK) function test_constructForm_2()
Definition: test_pm_io.F90:837
test_pm_io::test_isExtant_1
logical(LK) function test_isExtant_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:1789
test_pm_io::test_getAccess_4
logical(LK) function test_getAccess_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:2052
test_pm_io::test_constructPosition_5
logical(LK) function test_constructPosition_5()
Definition: test_pm_io.F90:1080
test_pm_io::test_getRecl_1
logical(LK) function test_getRecl_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:2122
test_pm_io::test_getPosition_1
logical(LK) function test_getPosition_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:2250
test_pm_io::test_constructBlank_5
logical(LK) function test_constructBlank_5()
Definition: test_pm_io.F90:982
test_pm_io::test_isInqErr_2
logical(LK) function test_isInqErr_2()
Definition: test_pm_io.F90:1773
test_pm_io::test_constructFile_2
logical(LK) function test_constructFile_2()
Definition: test_pm_io.F90:266
test_pm_io::test
type(test_type) test
Definition: test_pm_io.F90:28
test_pm_io::test_constructDelim_1
logical(LK) function test_constructDelim_1()
Definition: test_pm_io.F90:1120
test_pm_io::test_constructAction_5
logical(LK) function test_constructAction_5()
Definition: test_pm_io.F90:709
test_pm_io::test_getAccess_3
logical(LK) function test_getAccess_3()
The input unit can point to any existing or non-existing opened or closed file at runtime.
Definition: test_pm_io.F90:2038
test_pm_io::test_constructAction_3
logical(LK) function test_constructAction_3()
Definition: test_pm_io.F90:669
test_pm_io::test_isCloseErr_2
logical(LK) function test_isCloseErr_2()
Definition: test_pm_io.F90:1721
test_pm_io::test_constructForm_5
logical(LK) function test_constructForm_5()
Definition: test_pm_io.F90:892
test_pm_io::test_constructPosition_2
logical(LK) function test_constructPosition_2()
Definition: test_pm_io.F90:1020
test_pm_io::test_constructDelim_2
logical(LK) function test_constructDelim_2()
Definition: test_pm_io.F90:1140
test_pm_io::test_getWriteErr_3
logical(LK) function test_getWriteErr_3()
Definition: test_pm_io.F90:1623
test_pm_io::test_constructDelim_3
logical(LK) function test_constructDelim_3()
Definition: test_pm_io.F90:1160
test_pm_io::test_constructAction_1
logical(LK) function test_constructAction_1()
Definition: test_pm_io.F90:629
test_pm_io::test_getReadErr_6
logical(LK) function test_getReadErr_6()
Definition: test_pm_io.F90:1701
test_pm_io::test_constructPad_5
logical(LK) function test_constructPad_5()
Definition: test_pm_io.F90:611
test_pm_io::test_getBlank_1
logical(LK) function test_getBlank_1()
The input arguments unit and file must NOT be present simultaneously.
Definition: test_pm_io.F90:2178
test_pm_io::test_constructPad_1
logical(LK) function test_constructPad_1()
Definition: test_pm_io.F90:535
test_pm_io::test_getOpenStatus_4
logical(LK) function test_getOpenStatus_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:1873
test_pm_io::test_constructSign_3
logical(LK) function test_constructSign_3()
Definition: test_pm_io.F90:1515
test_pm_io::test_isCloseErr_1
logical(LK) function test_isCloseErr_1()
Definition: test_pm_io.F90:1714
test_pm_io::test_constructRound_7
logical(LK) function test_constructRound_7()
Definition: test_pm_io.F90:1397
test_pm_io::test_isExtant_2
logical(LK) function test_isExtant_2()
At least one of the two identifiers (unit or file) must be present.
Definition: test_pm_io.F90:1803
test_pm_io::test_constructPad_3
logical(LK) function test_constructPad_3()
Definition: test_pm_io.F90:573
test_pm_io::test_constructRound_9
logical(LK) function test_constructRound_9()
Definition: test_pm_io.F90:1449
test_pm_io::test_getName_4
logical(LK) function test_getName_4()
Check inquire with an input file name.
Definition: test_pm_io.F90:1992
test_pm_io::test_constructRound_2
logical(LK) function test_constructRound_2()
Definition: test_pm_io.F90:1267
test_pm_io::test_getWriteErr_2
logical(LK) function test_getWriteErr_2()
Definition: test_pm_io.F90:1610
test_pm_io::test_getReadErr_5
logical(LK) function test_getReadErr_5()
Definition: test_pm_io.F90:1688
test_pm_io::test_constructForm_1
logical(LK) function test_constructForm_1()
Definition: test_pm_io.F90:819
pm_err::err_type
This is the derived type for generating objects to gracefully and verbosely handle runtime unexpected...
Definition: pm_err.F90:157
pm_test::file_type
This is the module private derived type for constructing objects that contain the path to a file and ...
Definition: pm_test.F90:113
pm_test::test_type
This is the derived type test_type for generating objects that facilitate testing of a series of proc...
Definition: pm_test.F90:209