Commit d9e6ff81 authored by Andrew Wood's avatar Andrew Wood

Fix an incorrect INTENT attribute.

parent f1ae4b14
Pipeline #5508 failed with stage
in 0 seconds
......@@ -1003,7 +1003,7 @@ CONTAINS
SUBROUTINE add_to_hash_table(h, b)
TYPE(sdf_file_handle), INTENT(INOUT) :: h
TYPE(sdf_block_type), POINTER , INTENT(IN):: b
TYPE(sdf_block_type), POINTER , INTENT(INOUT):: b
TYPE(sdf_hash_list), POINTER :: hash_item
INTEGER :: i
......
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