From 87fd7b047c42845f936c0ab2c93688aa45e81473 Mon Sep 17 00:00:00 2001 From: Jayesh Krishna Date: Wed, 24 Jul 2024 17:00:30 -0400 Subject: [PATCH] Fix mismatch in arg intent for test_file_write() Fixing mismatch of the intent of the iotype argument in test_file_write() call between function declaration and definition. --- tests/general/pio_set_hint.F90.in | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/tests/general/pio_set_hint.F90.in b/tests/general/pio_set_hint.F90.in index 9c14ecc17..a27ffdda8 100644 --- a/tests/general/pio_set_hint.F90.in +++ b/tests/general/pio_set_hint.F90.in @@ -75,7 +75,7 @@ PIO_TF_AUTO_TEST_SUB_BEGIN test_set_hint Implicit none interface integer function test_file_write(iotype, iotype_desc) - integer, intent(in) :: iotype + integer, intent(inout) :: iotype character(len=*), intent(in) :: iotype_desc end function end interface