From f1e8de29b0eddabc9c86116c4ab0285852c44989 Mon Sep 17 00:00:00 2001 From: Nick Wogan Date: Wed, 26 Jan 2022 22:51:14 -0800 Subject: [PATCH] add bind c to type_node_c --- fortran_yaml_c.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/fortran_yaml_c.f90 b/fortran_yaml_c.f90 index 9be8014..3445792 100644 --- a/fortran_yaml_c.f90 +++ b/fortran_yaml_c.f90 @@ -10,11 +10,10 @@ module fortran_yaml_c public :: parse, error_length - type type_node_c + type, bind(c) :: type_node_c ! Node integer(c_int) :: T - ! character(len=string_length, kind=c_char) :: path ! Scalar type(c_ptr) :: string = c_null_ptr @@ -29,6 +28,7 @@ module fortran_yaml_c type(c_ptr) :: first_listitem = c_null_ptr type(c_ptr) :: node = c_null_ptr type(c_ptr) :: next_listitem = c_null_ptr + end type interface