Commit a7a014c1 authored by Thomas Jahns's avatar Thomas Jahns 🤸
Browse files

Emit :: in public and type declarations.

parent eac430e8
......@@ -588,8 +588,8 @@ end
def defineOpaqueType(name)
formatLines($declarationLines, 0, "")
formatLines($declarationLines, 1, "public t_#{name}")
formatLines($declarationLines, 1, "type t_#{name}")
formatLines($declarationLines, 1, "public :: t_#{name}")
formatLines($declarationLines, 1, "type :: t_#{name}")
formatLines($declarationLines, 2, "type(c_ptr) :: ptr")
formatLines($declarationLines, 1, "end type t_#{name}")
$opaqueTypes.push(name)
......
......@@ -194,13 +194,13 @@ module mo_cdi
integer(c_int) :: number
end type t_CdiParam
public t_CdiIterator
type t_CdiIterator
public :: t_CdiIterator
type :: t_CdiIterator
type(c_ptr) :: ptr
end type t_CdiIterator
public t_CdiGribIterator
type t_CdiGribIterator
public :: t_CdiGribIterator
type :: t_CdiGribIterator
type(c_ptr) :: ptr
end type t_CdiGribIterator
public :: cdiReset
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment