From fda8ac6870c675c345550b9584f7fd051a4ff8cb Mon Sep 17 00:00:00 2001 From: Jesse Lentz Date: Thu, 29 Aug 2024 11:54:08 -0400 Subject: [PATCH] yaml_parser_mod: Use integral error code Use an integral value for the error code returned by `open_and_parse_file_wrap` in `yaml_parser_mod`. This fixes a build error with the Cray compiler. --- parser/yaml_parser.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/parser/yaml_parser.F90 b/parser/yaml_parser.F90 index 3a3c7f0051..a34c5d4e22 100644 --- a/parser/yaml_parser.F90 +++ b/parser/yaml_parser.F90 @@ -76,7 +76,7 @@ function open_and_parse_file_wrap(filename, file_id) bind(c) & use iso_c_binding, only: c_char, c_int, c_bool character(kind=c_char), intent(in) :: filename(*) !< Filename of the yaml file integer(kind=c_int), intent(out) :: file_id !< File id corresponding to the yaml file that was opened - logical(kind=c_int) :: error_code !< Flag indicating the error message (1 if sucessful) + integer(kind=c_int) :: error_code !< Flag indicating the error message (1 if sucessful) end function open_and_parse_file_wrap !> @brief Private c function that checks if a file_id is valid (see yaml_parser_binding.c)