Skip to content

Workaround for compiler bug: don't pass local_tag if not allocated. #217

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
andrewcoughtrie merged 2 commits into from
Jan 20, 2026
Merged

Workaround for compiler bug: don't pass local_tag if not allocated. #217

Changes from all commits
Commits
Show all changes
2 commits
Select commit Hold shift + click to select a range
9a098ef
Workaround for compiler bug: don't pass local_tag if not allocated.
mo-mglover Jan 9, 2026
34486f5
Merge branch 'main' into issue-216-unallocated-optional-local-tag
andrewcoughtrie Jan 20, 2026
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
9 changes: 7 additions & 2 deletions src/f/vernier_mod.F90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -109,13 +109,18 @@ subroutine vernier_init(client_comm_handle, tag)
!Local variables
character(len=:), allocatable :: local_tag

! NB: Dual calls to interface_vernier_init() ought to be unnecessary,
! since unallocated actual arguments passed to optional dummy arguments
! count as not present in downstream code. We separate the calls here
! (with and without local_tag) to accommodate a compiler bug.
if (present(tag)) then
allocate(character(len=len_trim(tag)+1) :: local_tag)
call append_null_char(tag, local_tag, len_trim(tag))
call interface_vernier_init(client_comm_handle, local_tag)
else
call interface_vernier_init(client_comm_handle)
end if

call interface_vernier_init(client_comm_handle, local_tag)

end subroutine vernier_init

!> @brief Start profiling a code region.
Expand Down