pFUnit/src/funit/core/TestAnnotation.F90 at 5ae68aecb1a3615baadc6f5b368bf7b6ec0063a6 · Goddard-Fortran-Ecosystem/pFUnit · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
module pf_TestAnnotation
   implicit none
   private

   public :: TestAnnotation

   type, abstract :: TestAnnotation
      private
   contains
      procedure(type_name), nopass, deferred :: type_name
   end type TestAnnotation

   abstract interface

      function type_name()
         character(:), allocatable :: type_name
      end function type_name

   end interface

end module pf_TestAnnotation


module pf_StringTestAnnotationMap
   use pf_TestAnnotation

#define Key __CHARACTER_DEFERRED
#define T TestAnnotation
#define T_polymorphic
#define Map StringTestAnnotationMap
#define MapIterator StringTestAnnotationMapIterator
#define Pair StringTestAnnotationPair

#include "map/template.inc"

#undef Pair
#undef MapIterator
#undef Map
#undef T
#undef T_polymorphic
#undef Key

end module pf_StringTestAnnotationMap