Skip to content

Commit 07c0e10

Browse files
committed
added BITSET_KINDS and BITSET_TYPES
- BITSET_KINDS_TYPES is not needed to support sorting bitsets.
1 parent bb08fd9 commit 07c0e10

File tree

1 file changed

+5
-0
lines changed

1 file changed

+5
-0
lines changed

src/common.fypp

Lines changed: 5 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -78,6 +78,11 @@
7878
#! Collected (kind, type) tuples for string derived types
7979
#:set STRING_KINDS_TYPES = list(zip(STRING_KINDS, STRING_TYPES))
8080

81+
#! Derived type bitsets
82+
#:set BITSET_KINDS = ["bitset_64", "bitset_large"]
83+
84+
#! Bitset types to be considered during templating
85+
#:set BITSET_TYPES = ["type({})".format(k) for k in BITSET_KINDS]
8186

8287
#! Whether Fortran 90 compatible code should be generated
8388
#:set VERSION90 = defined('VERSION90')

0 commit comments

Comments
 (0)