Skip to content

Commit aab87a7

Browse files
committed
Update interface of prif_sync_all based on latest design doc
choices.
1 parent e176da3 commit aab87a7

File tree

2 files changed

+7
-1
lines changed

2 files changed

+7
-1
lines changed

src/caffeine/synchronization_m.f90

Lines changed: 6 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -1,13 +1,18 @@
11
! Copyright (c), The Regents of the University of California
22
! Terms of use are as specified in LICENSE.txt
33
module synchronization_m
4+
use iso_c_binding, only: c_int
45
implicit none
56
private
67
public :: prif_sync_all
78

89
interface
910

10-
module subroutine prif_sync_all()
11+
module subroutine prif_sync_all(stat, errmsg, errmsg_alloc)
12+
implicit none
13+
integer(c_int), intent(out), optional :: stat
14+
character(len=*), intent(inout), optional :: errmsg
15+
character(len=:), intent(inout), allocatable, optional :: errmsg_alloc
1116
end subroutine
1217

1318
end interface

src/caffeine/synchronization_s.f90

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -8,6 +8,7 @@
88

99
module procedure prif_sync_all
1010

11+
!TODO: handle optional args stat, errmsg, errmsg_alloc
1112
call caf_sync_all
1213

1314
end procedure

0 commit comments

Comments
 (0)