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 ...@@ -588,8 +588,8 @@ end
def defineOpaqueType(name) def defineOpaqueType(name)
formatLines($declarationLines, 0, "") formatLines($declarationLines, 0, "")
formatLines($declarationLines, 1, "public t_#{name}") formatLines($declarationLines, 1, "public :: t_#{name}")
formatLines($declarationLines, 1, "type t_#{name}") formatLines($declarationLines, 1, "type :: t_#{name}")
formatLines($declarationLines, 2, "type(c_ptr) :: ptr") formatLines($declarationLines, 2, "type(c_ptr) :: ptr")
formatLines($declarationLines, 1, "end type t_#{name}") formatLines($declarationLines, 1, "end type t_#{name}")
$opaqueTypes.push(name) $opaqueTypes.push(name)
......
...@@ -194,13 +194,13 @@ module mo_cdi ...@@ -194,13 +194,13 @@ module mo_cdi
integer(c_int) :: number integer(c_int) :: number
end type t_CdiParam end type t_CdiParam
public t_CdiIterator public :: t_CdiIterator
type t_CdiIterator type :: t_CdiIterator
type(c_ptr) :: ptr type(c_ptr) :: ptr
end type t_CdiIterator end type t_CdiIterator
public t_CdiGribIterator public :: t_CdiGribIterator
type t_CdiGribIterator type :: t_CdiGribIterator
type(c_ptr) :: ptr type(c_ptr) :: ptr
end type t_CdiGribIterator end type t_CdiGribIterator
public :: cdiReset public :: cdiReset
......
Supports Markdown
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